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TERMS AND CONDITIONS OF SALE AND LICENSE OF RADIO SHACK COMPUTER EQUIPMENT AND SOFTWARE PURCHASED FROM A RADIO SHACK 
COMPANY-OWNED COMPUTER CENTER, RETAIL STORE OR FROM A RADIO SHACK FRANCHISEE OR DEALER AT ITS AUTHORIZED LOCATION 

LIMITED WARRANTY 

I. CUSTOMER OBLIGATIONS 

A. CUSTOMER assumes full responsibility that this Radio Shack computer hardware purchased (the "Equipment"), and any copies of Radio Shack software included with the 
Equipment or licensed separately (the "Software") meets the specifications, capacity, capabilities, versatility, and other requirements of CUSTOMER. 

B. CUSTOMER assumes full responsibility for the condition and effectiveness of the operating environment in which the Equipment and Software are to function, and for its installation. 

II. RADIO SHACK LIMITED WARRANTIES AND CONDITIONS OF SALE 

A. For a period of ninety (90) calendar days from the date of the Radio Shack sales document received upon purchase of the Equipment, RADIO SHACK warrants to the original 
CUSTOMER that the Equipment and the medium upon which the Software is stored is free from manufacturing defects. THIS WARRANTY IS ONLY APPLICABLE TO PURCHASES OF 
RADIO SHACK EQUIPMENT BY THE ORIGINAL CUSTOMER FROM RADIO SHACK COMPANY-OWNED COMPUTER CENTERS, RETAIL STORES AND FROM RADIO SHACK 
FRANCHISEES AND DEALERS AT ITS AUTHORIZED LOCATION. The warranty is void if the Equipment's case or cabinet has been opened, or if the Equipment or Software has been 
subjected to improper or abnormal use. If a manufacturing defect is discovered during the stated warranty period, the defective Equipment must be returned to a Radio Shack 
Computer Center, a Radio Shack retail store, participating Radio Shack franchisee or Radio Shack dealer for repair, along with a copy of the sales document or lease agreement. The 
original CUSTOMER'S sole and exclusive remedy in the event of a defect is limited to the correction of the defect by repair, replacement, or refund of the purchase price, at RADIO 
SHACK'S election and sole expense. RADIO SHACK has no obligation to replace or repair expendable items. 

B. RADIO SHACK makes no warranty as to the design, capability, capacity, or suitability for use of the Software, except as provided in this paragraph. Software is licensed on an "AS 
IS" basis, without warranty. The original CUSTOMER'S exclusive remedy, in the event of a Software manufacturing defect, is its repair or replacement within thirty (30) calendar 
days of the date of the Radio Shack sales document received upon license of the Software. The defective Software shall be returned to a Radio Shack Computer Center, a Radio 
Shack retail store, participating Radio Shack franchisee or Radio Shack dealer along with the sales document. 

C. Except as provided herein no employee, agent, franchisee, dealer or other person is authorized to give any warranties of any nature on behalf of RADIO SHACK. 

D Except as provided herein, RADIO SHACK MAKES NO WARRANTIES, INCLUDING WARRANTIES OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. 
E. Some states do not allow limitations on how long an implied warranty lasts, so the above limitation(s) may not apply to CUSTOMER. 

III. LIMITATION OF LIABILITY 

A. EXCEPT AS PROVIDED HEREIN, RADIO SHACK SHALL HAVE NO LIABILITY OR RESPONSIBILITY TO CUSTOMER OR ANY OTHER PERSON OR ENTITY WITH RESPECT TO ANY 
LIABILITY, LOSS OR DAMAGE CAUSED OR ALLEGED TO BE CAUSED DIRECTLY OR INDIRECTLY BY "EQUIPMENT" OR "SOFTWARE" SOLD, LEASED, LICENSED OR FURNISHED 
BY RADIO SHACK, INCLUDING, BUT NOT LIMITED TO, ANY INTERRUPTION OF SERVICE, LOSS OF BUSINESS OR ANTICIPATORY PROFITS OR CONSEQUENTIAL DAMAGES 
RESULTING FROM THE USE OR OPERATION OF THE "EQUIPMENT" OR "SOFTWARE". IN NO EVENT SHALL RADIO SHACK BE LIABLE FOR LOSS OF PROFITS, OR ANY 
INDIRECT, SPECIAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF ANY BREACH OF THIS WARRANTY OR IN ANY MANNER ARISING OUT OF OR CONNECTED WITH THE 
SALE, LEASE, LICENSE, USE OR ANTICIPATED USE OF THE "EQUIPMENT" OR "SOFTWARE". 

NOTWITHSTANDING THE ABOVE LIMITATIONS AND WARRANTIES, RADIO SHACK'S LIABILITY HEREUNDER FOR DAMAGES INCURRED BY CUSTOMER OR OTHERS SHALL NOT 
EXCEED THE AMOUNT PAID BY CUSTOMER FOR THE PARTICULAR "EQUIPMENT" OR "SOFTWARE" INVOLVED. 

B. RADIO SHACK shall not be liable for any damages caused by delay in delivering or furnishing Equipment and/or Software. 

C. No action arising out of any claimed breach of this Warranty or transactions under this Warranty may be brought more than two (2) years after the cause of action has accrued or 
more than four (4) years after the date of the Radio Shack sales document for the Equipment or Software, whichever first occurs. 

D. Some states do not allow the limitation or exclusion of incidental or consequential damages, so the above limitation(s) or exclusion(s) may not apply to CUSTOMER. 

IV. RADIO SHACK SOFTWARE LICENSE 

RADIO SHACK grants to CUSTOMER a non-exclusive, paid-up license to use the RADIO SHACK Software on one computer, subject to the following provisions: 

A. Except as otherwise provided in this Software License, applicable copyright laws shall apply to the Software. 

B. Title to the medium on which the Software is recorded (cassette and/or diskette) or stored (ROM) is transferred to CUSTOMER, but not title to the Software. 

C. CUSTOMER may use Software on one host computer and access that Software through one or more terminals if the Software permits this function. 

D. CUSTOMER shall not use, make, manufacture, or reproduce copies of Software except for use on one computer and as is specifically provided in this Software License. Customer is 
expressly prohibited from disassembling the Software. 

E. CUSTOMER is permitted to make additional copies of the Software only for backup or archival purposes or if additional copies are required in the operation of one computer with the 
Software, but only to the extent the Software allows a backup copy to be made. However, for TRSDOS Software, CUSTOMER is permitted to make a limited number of additional 
copies for CUSTOMER'S own use. 

F. CUSTOMER may resell or distribute unmodified copies of the Software provided CUSTOMER has purchased one copy of the Software for each one sold or distributed. The 
provisions of this Software License shall also be applicable to third parties receiving copies of the Software from CUSTOMER. 

G. All copyright notices shall be retained on all copies of the Software. 

V. APPLICABILITY OF WARRANTY 

A. The terms and conditions of this Warranty are applicable as between RADIO SHACK and CUSTOMER to either a sale of the Equipment and/or Software License to CUSTOMER or to a 
transaction whereby RADIO SHACK sells or conveys such Equipment to a third party for lease to CUSTOMER. 

B. The limitations of liability and Warranty provisions herein shall inure to the benefit of RADIO SHACK, the author, owner and/or licensor of the Software and any manufacturer of the 
Equipment sold by RADIO SHACK. 

VI. STATE LAW RIGHTS 

The warranties granted herein give the original CUSTOMER specific legal rights, and the original CUSTOMER may have other rights which vary from state to state. 
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Can-opener . . . screw-driver . . . pin-ball machine . . . bicycle . . . 
pencil . . . calculator . . . fishing rod . . . Each one has a definite 
purpose. 

BUT WHAT'S A COMPUTER FOR? 

Funny thing is, that very question is what makes a Computer so 
useful and fun. Because you tell your Computer what it's going to be 
and do. . . your own bookkeeper, engineering assistant, secretary, 
electronic pin-ball machine, teacher, tax consultant, or poet-in- 
residence (all right, hack poet-in-residence). . . 

HOW? 

Well, you're already off to a good start, because your TRS-80 is the 
easiest-to-use Computer ever designed. (Yes, we're a little prej- 
udiced — but you will be, too, after you've played around with it a 
while.) 




First, you've got to connect the TRS-80 System and turn it on. That's 
when the fun begins. Following the examples in this book, you'll 
start "talking" to the Computer, by typing on the Keyboard. When 
the Computer has something to say, it'll talk to you on the Video 
Display. 

You'll find the TRS-80 is quite patient with beginners. If it doesn't 
understand you, it'll tell you so. When it does understand you, it will 
usually respond immediately. 

And by the way . . . you can't break, damage, mess-up or otherwise 
hurt the Comput er by ty ping on the Keyboard — even if you press 
the key that says (BREAK) / 



So get ready to enjoy using your TRS-80! 
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That's Right — ZERO! 

This is a do-it-now book. Put it close to your TRS-80 and as you read it, do it: type 
in the "computer instructions" just as they appear on these pages. 

But first, get the TRS-80 ready. If this is your first time to use this Computer, then 
read your Computer's connection and operation instructions very carefully. 
This will tell you how to set it up, turn it on, and perform some other essential 
operations. 

Where Do You Begin? 

This book is divided into three parts: 
I. Getting Started For first-timers and others who want to start at the 

beginning. 
II BASIC Training Here's where we really get going with TRS-80 BASIC. We'll 

assume you already know your way around the Computer. 
III. Exploring the Territory We discover the advanced features of BASIC, 

and put together some fancy and fanciful programs. 



Model III and Model 4 Users: Connection and basic 

operation are described in the Model III/4 Operation 

and BASIC Language Reference Manual, Part I (Radio 

Shack Cat. No. 26-1067). 

Model I Users: Connection and basic operation are 

described in the Level II BASIC Reference Manual (26- 

2102). 

Model 4 Users: With the BASIC described in this 
manual, your Computer works the same way as a 
Model HI. Unless otherwise specified, follow the same 
procedures described for Model III users. 

If you own a Model 4 Disk System, hold down (BREAK] , 
then press the reset button. Sev eral que stions will appear 
on the screen. Simply press (ENTER) to answer each 
question, until the screen shows: READY >. Your 
Model 4 Owner's Manual summarizes the differences 
between the BASIC described here and Model 4 Disk 
BASIC. 



Try out ParTIy if it's all old-hat to you, skim through it and begin at Part II. 
Unless you're a real TRS-80 veteran, you'll probably want to work your way up to 
Part in. 

We have placed "Do It Yourself projects throughout all three parts. Be sure to 
try these — they will lead you to some exciting discoveries. Whenever possible, 
we've included blank lines for your use in working out a D.I.Y. project. We've 
also put these lines at the end of many of the chapters. Use them! 

Whenever you complete a project (or maybe you'll be stumped once in a while?), 
compare your work with ours in Appendix A. There are many ways to solve 
every problem — sometimes yours will be better than ours. One of the goals of 
this book is to help you select the best approach for your own programming 
projects. 







v __ ._ f _ t zi SPPSI. 








6 



'Td t 






Settin' Flat on Ready 

Okay, your Computer is turned on, and it's telling you that it is ready for you to 
take charge: 

READY 
> 

Whenever the Computer displays the "> "prompt, you know it is waiting for you 
to type something in. A "position indicator" — a blinking block or underline — 
after the ">" will always tell you where the next key you press will be displayed. 

Keyboard Magic 

First try out the letter and number keys. Type in your name and address. (To 
type in a blank space, press the bar at the bottom of the Keyboard.) For example, 

>MILLIE GRAMM* G5 HUNT AND PECK LANE 

Notice that many keys have two characters — for example, 1 and ! share the 
same key. To type in the upper character, press (SHIFT) and hold it down while 
you press the desired key. 




Go ahead and type away at the number, letter and punctuation keys until you've 
filled up one line and part of the next. 




■■ i 'i ''■'-' ■ ':•'•'•: 
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Note or the TRS-SO ca 

ions on using this ca F « M ^vjr. 



upper-case. If you have the lower-case capability, just 
put your Computer in the << caps-only ,, mode as 



Backup Keys- — Local and Express 

It's easy to correct a typing error on the TRS-80 ... no eraser needed. Just press 
the back-arrow © key, and the last character you typed in will disappear. Press 
it again and the next to last will be wiped out. You can erase your way back to 
the beginning of the first line this way. Some people call that The Woodpecker 
Method. 





But there's a much faster way. Press the (SHIFT) key and hold it down while you 
press the back-arrow ©key. Zap — you're back to the beginning of your first line! 




Some Strong Language 



If you've just pressed (SHIFT) @, the position indicator is sitting at the beginning 
of the line. While it's sitting there, let's give it a better name than position 
indicator. How about . . . cursor? No, that's not one who swears, it's Latin for 
"runner". And that's what the cursor does — runs all over the Display, showing 
exactly where the next character will be displayed. 
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See the Cursor Run. . . 

Tapping over and over on the space bar will make the cursor creep along one 
space at a time (So why didn't we call it a creeper?). To make it run, press the 
forward arrow ©. Go ahead, press © several times. 

Now press (SHIFT) @ to see the cursor skip back to the beginning of the line. 




Getting tired of looking at all of those old lines you typed in? Well, in case you 
don't have any masking tape handy, why not just press the (CLEAR) key? That's 
called starting off with a clean slate! The only thing left is our familiar little 
runner. 




Take a Look at Yourself. . • 

Are your eyes starting to feel like you've been looking at the classified ads for 
half an hour? That's normal, and indicates you're well on your way to becoming 
an expert programmer. 

What? You don't care about appearances — you want something deeper? Well, 
then you're ready for: 




Feel better? 
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Surprise — Double Your Pleasure 

You've earned your stripes, so how about a little relief for those eyes? Press 
(ELHBXif you haven't already) and then (SHIFT) @. 

This tells TRS-80 to display everything double-size (double-width that is, not 
double-height). 



To get out of the double-size mode, simply press (CLEAR) again. 



Something strange? Well, just for fun, press (gtfffi) 
then type STUEEBPOEAIYSIES! Now press (SHIFT) 
©Surprised? 



i 

■■I 
K 




Jn-^e-'tfottbl^fe/jmode, the Display has room for 16 lines of : 
characters. 



Thar's Gold in them thar Hills. . . 

Now you know your way around the Keyboard and Video Display pretty well. 
But before going on, play around with the Keyboard a little more, until you 
discover a few little goodies we left for you to find: 

Exercises (Do It Yourself #1-1, 1-2, 1-3, 1-4) 

1-1. How to produce the " ♦ " character (on some models, "[" is displayed). 

1-2. How to make the cursor jump down to the next line before it reaches the end 
of the present line. 

1-3. The difference between the letter O and the number (zero). 

1-4. The difference between " (quotation mark or double-quote) and ' (apos- 
trophe or single-quote). 

1-5. The difference between 1 (the lower-case letter L) and 1 (the number one). 

If you can't discover all these things after playing around a while, see the 
answers in Appendix A. 
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[vf Chapter Checkpoint #1 

1. The cursor always tells you: 

a. where the next character will be displayed 

b. when to clear the display 

c. how to get to Florence, Mo. 

2. The symbol for the "prompt" is 

3. If you want to cancel a letter (or any character): 
a. give it to the postman 



b. press (BREAK) 

c. press © 



4. By pressing C 



D(key), you can clear the display. 



5. If you only have 32 characters per line, you must be in the 
- mode. 



6. You can erase your line and start over by pressing C 



3 and 



c 



D 



7. If you want to jump the cursor ahead quickly, press C 



J. 




For answers, see Appendix A. 
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What to Do Before You Press [enter) 

Up to now, you haven't asked the Computer to do much. Sure, it's been 
"listening" to the Keyboard, and "echoing" what you type onto the Display. The 
Computer has even erased the entire Display a few times. 

But now it's time to put this 5-lb (2270 gram) beast to work! 

Let's make TRS-80 say something friendly, like 

HELLO* I 'M YOUR TRS-80 COMPUTER!! 

First press (BREAK). This tells TRS-80 to ignore the line you've been typing in and 
start a new one. The Computer will respond with another prompt: 



Small is Beautiful IBM's first large-scale Computer, 
Mark! (1941), weighed 5 tons and couldn't even say 
READY! 



A Few Words about Spaces, . . 

In general the Computer ignores them, unless they are 
in between quotes. So don't worry about counting 
spaces— just concentrate on the other letters and 
numbers! 



Now type: 

NEW 

and press (ENTER). This makes sure you're off to a fresh new start after all that 
experimentation in the last chapter. The Computer will clear the screen and 
display the familiar READY heading and prompt. 

Now fo r our first real command. Type in the following line (but don't press 
CENTER) yet): 

PRINT "HELLO* I 'M YOUR TRS-80 COMPUTER! ! " 

Double-check what's on the Display to make sure your typing is up to snuff. Use 
the backspace key © to erase any errors. 

Everything okay? Good. 
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The TRS-80 will not pay attention: to your typini 
(EBtEffi WIienyou do, it will try to figure out what you want and do it 
now— immediately . : 



^iinme(a[mte , • is a Word well use over and over to 
Ascribe atiy instruction which is performed "right 
now ,? but wMA^^be stored for future repetition.: 



(The Immediate Mode, in o&er words^ is a lot like 
moneys-it vanishes as quickly as it appears!) 



Now press (ENTER) . 



Did it work? If so, the Display will look like this: 

PRINT "HELLO* I 'M YOUR TRS-80 COMPUTER! ! " 
HELLO* I'M YOUR TRS-80 COMPUTER! ! 
READY 
> 

If the Computer did not print the message (maybe you got an error message 
instead), try again. Type PRINT and then the message inside " 
Double-check what you've typed in; then press (ENTER ) when everything's okay. 

Once you succeed with this command, try putting other messages inside the 
quotes. Do it this way: 

PRINT "your message goes here" 

and press (ENTER) when you want the Computer to look at what you've typed in. 

Now let's try printing a string of 25 asterisks on the Display. Type: 



PRINT "*************************" (ENTER) 




Throughout this book, our little friend here will point 
out "Error Messages" that sometimes occur when you 
make & mistafeV 




As you can plainly see, he's a BUG; /feo computers^ 
"bugs" are those little problems you have in 
communicating with the machine. 

Haven't you heard the old proverb, "Computers are 
never wrong . . . "? Well, that's the case here and this is 
the way TRS-80 tells you that you've done something 
wrong somewhere down the line. And speaking of 
Klines.';': •• • 

TRS-80 even tells you exactly which line contains the 
mistake. Furthermore, TRS-80 goes so far to tell you 
what kind of mistake you've made. Now that's getting 
your money's worth. .. 

We'll go into more detail on Error Messages later in 
this same chapter- 
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Are you using the double-size mode? If not, try it. Press (CLEAR) and then CSHlFTl 



So It's a Great Message Printer— Big Deal. . . 

The old 5-ton Computers earned their fame as great number-crunching 
machines. Let's see how your 5-pound "micro" handles its numbers. Just to be 
safe, we'll start out with something simple. How about the age-old question, 

1 + 1 = ? 

First make sure the Computer is ready for a new command. 
Now type in the following instruction: 

PRINT "1+1=" CENTER) 

(If you get an error m essage, type in the line again . . .carefully. . .double-check 
it, and press (ENTER) .) 

Excellent— the Computer has stated the problem very well. But why didn't it 
solve it? Remember UFO #2-2. Everything inside the double-quotes is 
printed exactly as-is. So how do we make the Computer give us the answer? 

Can you guess what command will do it? 

In case you typed 1 + 1 in and nothing happened, don't be surprised. You didn't 
break anything. To the Computer, 1 + 1 is just so much graffiti. Remember, you 
have to make it very plain that you're commanding TRS-80 to do something. 
(Hint: Add a "verb" to make a complete command . . . ) 



d^m^^^^&^^^^y so you tell 
:tb MM I III 11:^11 11 #lf lit 



1 *st line displayed looks like this: 



• i> •! 




;pp|||l|e most comm on error message that will bug 

:;||||:f||^^]|T (EHTEfi) situation. (In fact, it's one of the 

I'll!!!!! situation.) It 

usually just means you have made some mistake with 

punctuation or spelling, Check whatever it was you 

"" "ie error and try again. 
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Don't Quote Me, But ... 

In English, quotation marks are often used to signify material that is to be taken 
literally, letter-for-letter, verbatim, with no changes or interpretation allowed. 
When quotation marks are omitted, the material is subject to interpretation. 

The situation is similar in a PRINT statement. PRINT "1 + 1" involves no 
interpretation. As far as BASIC is concerned, you might have said PRINT "ONE 
PLUS ONE" — neither tells BASIC to interpret or solve the problem of 1 + 1. But 
leaving off the quotes tells BASIC to evaluate the information or solve the 
problem. So try: 



PRINT 1 + i (ENTER) 



Smart computer, huh? 



Notice that we don't include the equals sign: 
PRINT 1 + 1 = 



Here's one you can't do in your head 

Long division is short work for the TRS-80. For example, what's 17893 divided by 
14.5? Type in the following line to find out . . . 



PRINT 17893/ 14,5 CENTEff) 
By now, you've already discovered: 



^ UFO #2-3- 

< You canmaket 
o\ without quo' 




t§|f|llll|||i||||§fs8ll 



jterdde? 



eulations by PRiNTing the problem 






is an error, since tlie equals sign isri- 1 really part of the 
problem. But BASIC wouldn't faiow that. 



"Die slash symbol / means "divided by" You've 
probably seen it used this way before, as in the simple 
fractions 3/4, 1/2, 9/10, etc. 
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Print Lists 



Suppose you want to make a list and print several items on a single line. For 
example: 

17893 / 14.5 = 
followed by the answer. 

There are two ways you can do this, each giving you a different kind of listing. 

The first way is to put the message and the problem in the same PRINT 
instruction but to place a semi-colon (;) after each item: 



PRINT n 17893/14*5=" 5 i7B93/14*5 (ENTER) 
You can even extend this list by using more than one semi-colon: 



PRINT "17893/14*5=" 5 17893/14*5 5 "ACCORDING TO TRS-B0" (INTER) 
The second way is to use a comma (,) instead of a semi-colon: 



PRINT "17893/14*5 = " ♦ 17893/14*5 (ENTER) 

The difference between the semi-colon and comma is that the semi-colon bun- 
ches the numbers up together, while the comma causes the next item to be 
printed in a pre-determined "print zone." 

The two punctuations can even be used together: 

PRINT "17893/14* 5="; 1 7893/14*5* "17893/7*25="; 
17893/7*25 (ENTER) 



UFO #2-4 

^ to PhtNT more than one Jtern on a single line, simply listtHe items 
5| after print, putting eithera semi-colon^rtommaattereaeh Item but 
the last. 

The semi-colon will print the next item right afterthe previous one, while the comma will 
print the next item in the next 16-column "printzone." Note: print will be covered in detail 
in a later chapter. 




Each line is divided into four "print zones/' (Do you 
remember how many spaces there are in a line? If you 
said "64" you're right! Therefore, each "print zone" 
contains 16 spaces.) Each comma in a print list moves 
the next item over to a new print zone. 

Some of our computer lines are too long to fit on a 
single line in this manual. In such cases, well break 
the line at a convenient spot and put the remainder on 
the next line with a little extra indentation* You 
should type in the line as if it were all on the same line. 
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Example (Do It Yourself #2-1), Type in and PRINT the different combinations 
of the list "1, 2, 3, 4" to see how TRS-80 interprets your information. Use 
semi-colons, commas, spaces as well as different combinations of each. 



You've Got the Keys to the TRS-80 Lab. . . 

So go ahead and experiment with what you've learned. Try to get the Computer 
to print various other arithmetic results, using addition ( + ), subtraction (-), 
division (/) and multiplication (*). 

Projects (Do It Yourself #2-2, 2-3, 2-4, 2-5). Make the Computer: 
2-2. Give the decimal version of some simple fractions such as 1/3, 2/3, 7/8, 

15/16. For example, 1/4 = .25 
2-3. Do more complicated problems such as 83 + 11/21 - 33.7 
2-4. Use large numbers, such as 12345000 * 70010.101 (If you use really large 

numbers the result may throw you, but try it anyway.) 
2-5. State the problem and then compute the answer! For example, make the 

Computer print: 

100 + 200 = 300 

(Hint: UFO #2-4). 

See Appendix A for our answers. 

Now, About those Error Messages . . . 

If you've been going through the examples in this book, and also done some 
experimenting on your own, you're bound to have run across an error message or 
two. That's when the Computer doesn't do what you wanted, but instead prints a 
question mark followed by an abbreviated message. 

A very common message is: 

?SN ERROR 

Obviously, the computer is warning you that you've committed a sin! 




meaas - five toi 
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For example; if you type: 



PRRINT M HOPE THIS IS OKAY" (ENTER) 
the Computer will reply: 

?SN ERROR 
What's that— a SiN error? 

Your "sin" was a harmless mistake, but to the Computer, it's a big deal. PRRINT 
isn't in its vocabulary, and it doesn't know you meant PRINT. 



ee, it's ric* so smart, after all! ■ ; ■ 






Does the Word Sin Bother You? 

If it does, then take SN as an abbreviation for "syntax" instead. Syntax is like 
grammar — minding your spelling and punctuation. When you make a spelling, 
punctuation, or usage mistake, you've committed a syntax error. 

There are lots of other wrong things you can do. For example, type in: 

PRINT 5/0 fENTER) 
The Computer will reply: 

?/0 ERROR 

Well, what did you expect? Division by zero is illegal, even with a liberated 
personal computer in the privacy of your own home! 



GoogoMtis 

Ask the Computer to print the number 1 followed by 100 zeroes. 

PRINT i0000000000000000000000000000000000000000000tf#0## 



(ENTER) 

The Computer will reply: 

?0M ERROR 

This number (a googol) is too large for the Computer to handle. So it gives you an 
overflow message. People get heartburn; Computers get Overflow. 
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There are lots of other error messages; many of them are associated with 
particular BASIC instructions, while others can happen anytime, anyplace, to 
anyone . . . 

In this book, well be explaining error messages where we think youll encounter 
them. If one of your experiments causes an unfamiliar error message, simply 
double-check what you have typed against the examples we've given. If you 
can't find anything wrong, then either: 

1. Look up the error message in Appendix C, or 

2. Sidestep that experiment and get on with the show! 

Stay Tuned for these Exciting Episodes. . . 

You probably think you can solve most of the world's problems with what you 
know about PRINT but wait! The PRINT you know has more than a dozen smarter 
cousins, and scores of distant relatives who are just as powerful in their own 
right. 

For example, there's an instruction to clear the Display (it's similar to pressing 
the (CLEAR) key). Type the following: 



CLSdNTHS) 

For another example, remember when you got the Computer to print a string of 
25 asterisks? You had to put the 25 asterisks inside the quotation marks. 

Now try this — but careful with the punctuation: 

PRINT STRING* (25* "*" ) 



Th^srBASIC fc 



Notice the $ after the word STRING/ 



Now press (ENTER) . 

If you typed it in right, the Computer will display a row or "string" of 25 
asterisks. 

The idea of a string of characters is special in BASIC and other computer 
languages. We'll be explaining it in detail later on, but for now, just play with it 
a little! 
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How about this one: 



PRINT BTRING$ (10* "0") (ENTER) 

Hint: The first number in the parentheses says how long the string will be; the 
second item (in quotes) says what character to use in the string. You can try any 
string length number from 1 to 50. 

Now for something really different: 

PRINT STRING* (40 t 149) CENTER) 

The number 149 tells the Computer to print a special character that you can't 
type in from the Keyboard. Try any number up through 191. 

Computers Never Die, They Just Scroll Away, . . 

You've probably wondered (if not, do it now . . . ) about what happens to your 
instructions and the Computer's messages after the Computer finishes with 
them. 

For example, when the cursor gets to the bottom line of the display (it can't go 
any lower), it makes room for more messages by pushing everything up a line. 
The top line of the Display disappears off the top of the screen, and every other 
line moves up. This is known as scrolling, because it's just like reading an 
ancient scroll. 



But Does TRS-80 Remember? 

By now, you've gotten the Computer to do lots of printing and computing. You've 
learned a lot, but has the Computer? Can you make the Computer repeat what 
it's already done, without having to re-type all those instructions? 

It would be nice . . . But before going on to the answer in the next chapter, this 
might be a good time to take a break. You've learned quite a lot already — 
enough to put together some grand plans. So, mull it over . . . 







You can run across a couple of bugs whenever you work 



mS is the most common error. It sim^I^meins^re 
*out of string space" and occurs wheneVe^|pfeng 



c?6n:™ i«..>.A^il : i^JL-2^Li..l J ii:.^.'_iili»_' „ . 



fLSis the other and TOS-80 is justMingy^ffiefeng 

Later on, we'll show you how to make the Computer 
display strings of up to 255 characters. 
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H* Chapter Checkpoint #2 

1. To get a new start in (BASIC) life, type in — 

2. ?SN, ?/0, and ?OV are all messages. 



3. To enter anything into TRS-80, you must first press C 



4. By pressing C 



you can tell TRS-80 to ignore the line you've been 



typing in and to begin a new one. 



5. Use the. 



. command to instruct TRS-80 to display any messages or 



calculations you have in mind. 
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Re-Usable Instructions (Programs) 

So far all your instructions to the Comp uter h ave been immediate . . .just like 
saying, "Do it now!" Each time you press (ENTER) , the Computer looks to see what 
you've 'typed in and tries to do what you asked it to. Once the Computer has 
completed the instruction, or given you an error message, it forgets about that 
one and waits for the n ext inst ruction. The only way to repeat an instruction is 
to re-type it and press CENTER) . 

That's No Way to Run a Computer! 

Hold it don't pack up your Computer and head for the local Radio Shack! There 
is a way to make your Computer remember one instruction or a whole sequence 
of instructions. In fact, 99 percent of the time, you'll probably give the Computer 
these reusable instructions. . .or "programs", as they are called. 
Make sure > is the last line displayed on the screen (press (BREAK) if it's not). 

Let's start out by clearing your previous experiments. Remember how to get off 
to a NEW start? (The answer is in the right margin.) 

Now type in the following line (but don't press (ENTER) yet): 

10 PRINT "HI ! I'M YOUR TRS-80 COMPUTER! !" 
(That's the number 10 followed by a space, followed by the PRINT instruction we 
used at the beginning of Chapter 2.) 

Check the line you typed in to make sure everything's okay. If it's not, backspace 
to the error and correct it. 



CPU's, Ws, RAM's, jfeiTs andBW'aye^tAlsTieaUyis 






NEW! 
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A Light Drum Roll, Please 

Now press (ENTER) and see what happens. 

Nothing happened! Is the Computer tongue-tied? But it worked before (without 
a number before PRINT) ... 



Something really did happen, though. When you pressed (ENTER), the TRS-80 
looked at what you had typed in. When it saw the number 10, it said: "Aha! This 
is no ordinary immediate (do-it-now) instruction. This is a re-usable 
instruction." And so the Computer tucked the instruction away in its memory 
for use whenever you ask for it. 

So How Do You Tell the Computer to DO IT? 

Your PRINT command is now a one-line program in memory, waiting to be 
performed, "done", or. . ."run". So type the following: 



RUN (HUE) 
That's more like it! 





itertado, or "execute';; ^(JrogmWlhatybiT^^ ;: 



See the Computer RUN 



Now type RUN (ENTER) again . . . and again . 
the Computer or the program. 



. You'll find that you can't wear out 






«&&' 
«, 



so well use that 
»tant, aren't they?) 




\FIN£M 

Vt 
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The Acid Test 

Press fCLEARl and then press (ENTER) . Now your PRINT program is nowhere to be 
seen. But it is in the Computer's memory. Prove it? Just tell the Computer to 
LIST it, by typing: 



l 1ST (ENTER) 



■ //^v<w : ■ ■ ufq #3*2; ■ ■ ■ ■■ 



°A 



o) stored in memory. 






Adding to the Program 

Type in the following line: 

5 CLS (ENTER) 

(That's the number 5 followed by a blank followed by the CLS statement from 
Chapter 2.) 

Now type in one more line: 

20 PRINT "MASTER . WHAT 'S YOUR NAME?" (ENTER) 
LIST the program. The Computer will display: 

5 CLS 

10 PRINT "HI ! I 'M YOUR TRS-80 COMPUTER! ! " 

20 PRINT "MASTER. WHAT'S YOUR NAME?" 

The TRS-80 has been busy! While you weren't looking, it added your two lines to 
the original one-line program, and it added them in order, according to the 
numbers at the beginning of each line. 




TRS-80 is an £ 

how this marvelous : 

iand^ wordM HaASbng .ethjetf i 

"What order?* you ask. Well, j 

want. Remember, with TRS-80, you're 1 







§M*ft 
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Every riBeinaproQrafTi hasa numbers 
X the //nef^feW gerieral, theGomp 
/ prograiBiifiieKlC and stop when it completes the la 
se anv line number from zero to 65529. 



'* '.fit. •?$ r.: ;:.'": X 
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Go ahead and RUN the three-line program that is now stored in memory. Type: 



RUN (ENTER) 



The Computer will clear the Display (that's what line 5 tells it to do), then print 
a greeting (according to line 10), and then ask you a question (line 20). 

HI! I'M YOUR TRS-80 COMPUTER! 
MASTER t WHAT 'S YOUR NAME? 
READY 
> 

Well, what are y ou wai ting for? Type in MY NAME IS ♦ ♦ . followed by your 
name, and press (ENTER) 

?SN ERROR 

READY 

> 

Hmmm. Another one of those. But I know this one's spelled right! (Anyway, how 
would the Computer know the difference?) 

Then why doesn't the Computer accept your name as an answer to its own 
question? 



•■•...:.:-::• y\: 

Sir™" 



^■M. :j$Sf A-*&-*rffl 







^,vto>^^^;^-#-;' 



it shotMn'thapp^i too often, but if yotfii^^ifiiitga 
: you^^ a?SNferrw. ; ( 
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The Hard Truth 

The Computer isn't smart enough. IT CAN ONLY DO WHAT YOU TELL IT TO DO. You 
told it to ask the question, but you didn't tell it to accept your answer. When the 
Computer finished your program and displayed the message: 

READY 

> 

it was expecting you to enter another instruction (like RUN, CLS, LIST, PRINT, etc). 
It wasn't prepared to learn your name. 

(Stop a minute and let this idea sink in: THE COMPUTER CAN ONLY DO WHAT YOU 
TELL IT TO DO. Every line of every program you write should be written with this in 
mind. Don't ever expect your Computer to "know what you mean". It won't. 
You've got to use BASIC to spell out exactly what you want done.) 

In a later chapter, we will "teach" the Computer to learn your name, and even to 
carry on a friendly conversation with you. 

Subtracting from the Program (Deletion) 

There'll be many times when you not only want to add a line to an existing 
program, but subtract (or delete) one as well. 

Do you still have your program? 

LIST it and see (if not, take a minute and type it in). 

5 CLS 

10 PRINT "HI ! I 'M YOUR TRS-80 COMPUTER! ! " 

20 PRINT "MASTER > NHAT 'S YOUR NAME?" 

Now let's say you need to delete line 10 so the program consists of just lines 5 and 
20. 

It's simple. Type: 



x>mepne has sajd that ^C^nprt^r ,*y^.a*i^^.^ 
ast idiot, but aft idiot nonetheless. Dotft l^li yotur 

u After all, you don't yet to^lliitfl^?: 



Another sideofthismle: YOU have § 

what you want done b^^youmneommmili^iteitto 

the Computer. 



10 CENTER) 

Then LIST your program. 
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What happened? Well, whenever TRS-80 encounters a line number that has 
already been used in an existing program it deletes the first line and replaces it 
with the second. And, in this case, TRS-80 replaced line 10 with nothing. (You can 
correct mistake s the same way. Just type the line number and the corrected 
statement and (ENTER) . Later on, you'll learn how to delete a single letter or word 
by EDITing it instead.) 

How to Tell the Computer, "Forget it!" 

With what we've covered so far, you can already write some interesting 
programs. But before you do, you've got to get rid of that one that's now in 
memory. (Type LIST (ENTER) to see that it's still there.) 

Remember how we started the chapter? Type in the command that erases 
everything. . . 



After the dust settles, look at the Display. 

READY 
> 

So you cleared the Display, but what about the program? It may still be hiding in 
memory somewhere. 

Well, how can you prove that the program is gone? Command TRS-80 to tell you 
what's in there. Remember how? 



Type LIST 1^^ 

means there istft ainy program in memory. 




o) memory: To use that program again, you'll have to re-enter it 



Now that you've eliminated the old program, you can put another one into 
memory. Here's where you get to do some creative programming. 
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Back to the Laboratory, Igor! 

Program (Do It Yourself #3-1). Write a program that clears the Display, 
prints a line of asterisks, and then prints the message, "I LIKE STARS". Use the 
blank lines below to write down your program. (Notice we've already supplied 
the line numbers. All you have to do is add the necessary BASIC statements.) 



10. 
20. 
30. 



After you've written out the program, check it for misspellings, punctu ation, 
etc. Then carefully type the program into the Computer, pressing (ENIER) at the 
end of each line. List your program and re-type any lines which contain errors. 

Now RUN it. 

Did it work? If so, then it's time to tell your family and friends that you're 
involved with a Computer. 'Cause once you've succeeded in writing and running 
your own computer program, the relationship can get very "heavy". It may be 
quite a while before you want to re-join the everyday world. And someone's gotto 
make sure you eat and sleep! 




'course we counted our line numbers by tens! What 
©d's a one in these days of infl " "" 



y, there is a very practical reason for counting 
tens, fives, twenties, or hundreds— anything but 
je why in the nesrt chapter. 



If It Didn't Work, Relax. 

It may be a few minutes before you have to say goodbye to normality. The most 
likely error message will be: 

?SN ERROR IN 10 

READY 

10 

We've used line number 10 just as an example but TRS-80 will display the 
number of the line which contains the error. 

If this happens, simply press (ENTER) and the Computer will return with a 
READY 



YDUV0 
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Now LIST the program, and look closely at the line which the Computer says 
contains an error. There's probably a spelling error, missing punctuation, or 
extra punctuation. 

Once you've located the error, simply re-type the line correctly. F irst typ e the 
line number, then the statement. When you've got it right, press (ENTER) . Now 
the corrected line will replace the old line, since both share the same line 
number — and physics tells us that no two bodies can occupy the same space at 
the same time . . . 



List the corrected program (LIST (ENTER) ) to be sure everything's okay. 
Now RUN the program. 



■ 



L^ft^..A«iili«i , !1 • -foil iftivt al^if QJiwjpK nifti»k wat/: ,f h 



-U youll fie the editca>m-chief of an Mportaxit micrte 



As a Last Resort: 

If it still doesn't work, look up the answer to Do It Yourself #3-1 in the 
Appendix. 

Remember, our answer is just one of many ways to do it. 

Program (Do It Yourself #3-2). Write a program to print the simple fractions 
1/2, 1/3, 1/4, 1/5, 1/6, 1/7, 1/8, and 1/9, in decimal form. (For example, .5, .333333, 
etc.) If you want to get fancy, make the Computer print an equation for each 
fraction, as in: 

1/2**5 
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Write down the program in the space below. Use the first line in your program to 
clear the display, and the remaining eight lines to print out the answers This 
time you pick the line numbers. The only rule is: make sure to number the lines 
from lowest to highest. 



Here's a good chance fo^ra&ce SAViihgP® j 
ram on tape. (Check your Owner's Manual fprs^ 
Erections on how to do this.) '! ^ ^ 



hi^l ,™~~*Wo«iid 



h Anyway, this is your first real progranr 
probably want to put it in a serapho** 
along with your bronzed baby-shoes aL 
school yearbook. ■ ;■■' ■ :;';■* 



AtCRZliMZ. 




Double-check what you've written do wn. Ty pe NEW to erase any old program, 
then type in the program, pressing (ENTER ) at the end of each line. List the 
program, re-type any incorrect lines, then RUN it. 

If the Computer says you have an error, try to handle it by yourself. After all, 
we've already told you how once (after Do It Yourself #3-1), and you don't need to 
be told twice, do you? 
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@* Chapter Checkpoint #3 

1. Programs are nothing more than re-usable — . 

2. The one thing programs, laundry, and groceries have in common is that they 
can all be _ ed. 

3. Every line in your program must begin with a number. 

4. In order to execute a program you first have to: 

a. JOG 

b. RUN 

c. FIND A REPUTABLE HIT MAN 

5. To delete one line from your program, you must re-type the 

and press CENTER) . 

6. Choose the best method for inserting a new line into an existing program. 

a. type in NEW and start all over 

b. hire an out-of-work programmer 

c. type in a new line number between two existing lines; then type the 
addition, then press (ENTER) . 
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Part II 

BASIC Training 



Statements • Shortcuts 
Editing • Math Functions 
Arrays • Strings 
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BASIC Training (Crew-Cut Optional) 

How're you feeling? Sharp as a sponge and fresh as a tack? Great — because it's 
time to get down to the basics of BASIC, and that means . . . new words, ideas, 
insights, discoveries, and even a little creative thinking! Maybe you ought to 
run down to the local diner first, and have a Brain-Food Plate (that's Harvard 
beets and boiled fish). 

Okay, Here Goes . • . 

So far, we've used the terms instruction, command, and statement to refer to 
words that your TRS-80 understands. But now let's clean up our language a bit so 
we can get on with the more interesting and practical aspects of programming. 

From now on, we'll use the word statement to mean a complete BASIC 
instruction. Most statements can be used in the immediate mode (without line 
numbers) as well as in programs. The statements we know so far are: PRINT and 
CLS. 

We'll use the word command to describe those BASIC statements that you would 
normally use outside of a program, in the immediate mode. For example, 
RUN, LIST and NEW are commands. For special effects, you can put them in 
programs (see margin). But normally you wouldn't. 

BASIC Statements— A Survey 

There are several kinds of statements you can use to tell TRS-80 what to do. The 
major kinds are: 

Name-it Storing information for instant recall when you need it (we'll cover 
some of these in this chapter) 



Three Abn< 



We said that commands are norms 
praams in the ■ ,,, 

who are fascinated hy the ahnorina , 
strange critters: 

Self-Destruct 

Type in. the r — 
10 NEW 



deof 




BREAKING 



^!|A©Jfi 



-iW'V 






TheBREAKnu 
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Input/Output Getting information in and out (I/O for short.) 
Graphics Doing special things to the Display. 

Program Flow Changing the order in which program lines are executed. 
Declare-it Changing the Computer's "assumptions". 

Name-it Statements 

The statement: 

A = 12.5 

tells the Computer to copy the number 12.5 into a place in memory, and to name 
that place "A". (Well, ifs not Acapulco, but at least it's easy to spell!) Then, 
whenever you want to recall that number, you simply refer to it by its name, "A". 

Go ahead, if you haven't already, type in the statement, 



A=12*5dNTEB) 

Not too exciting a result, was it? But something did happen inside the 
Computer. To prove it, tell the TRS-80 to print the "contents" of A, by typing: 



PRINT A (HUH) 

You just told the Computer to look in memory for a place called A, and tell you 
what is stored there. 





A* 12.5 

ic^arrn 



What's In a Name? 

Just what is this thing called "A"? We've said it names a place in memory, and 
that this place is now storing the number 12.5. But why bother? Why not just 
refer to the number 12.5 and skip the name? 

Well, suppose 12.5 is the number of goldfish in the Average American Goldfish 
Family (AAGF). This number is bound to change, depending on prevailing 



38 



j conditions in the bowls and ponds across the land. And whatever that number is 
I — 12.5, 13, 5 or 50, we would like to store it where we can find it. 

That's where A comes in. Because A doesn't have to contain 12.5. We can put any 
number there. For example, when the number of goldfishes in the AAGF zooms up 
to 30, we can type: 



A = 30 CENTER) 
to tell the Computer to replace 12.5 with 30. 

Type: 



PRINT A (ENTER) 

to see that the contents of A really has been changed to 30. Since its contents can 
vary, we call "A" a variable. 



I No More Food for Thought, Please 

j "Contains" and "contents" make us think of milk cartons, cereal boxes and other 
food-and-drink containers — which tends to get us off the subject. So we use the 
j words "equals" and "value" instead: A equals 30, the value of A is 30, etc. 









- Is the number into a place in memory, and H 






Jhat place variable.] 
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How Many Variables? (Can Dance in the Head of a 
TRS-80) 

We chose the letter "A" as a variable name purely by chance. There are hundreds 
of other names you can choose for variables, and each different variable can 
contain a different number. 

For example, 

A1=I000 
C =33 
J3 = 49 
XX = 33 

are all okay as name-it statements. In each case, the number on the right of 
the equals sign is stored in the variable on the left. 





Variable names must begin with one of the letters a through i and 






; ' :....-.: ;:.:•• "..>: ;.; .•;;.':•£ ■s.xyy : ^f~.WH 



For example, the following are all acceptable and distinct variable names: 



A 


Al 


AB 


AZ 


B 


BA 


BO 


BY 


C 


CI 


CB 


CA 



The only restriction is that you can't use one of BASIC'S "special words" in a 
variable name. (We'll cover these later, but for the time being, just don't use TO, 
IF, or ON as variable names.) 




•' S : : .''.'•'•/ : -:•': •'.... 

•' • •: ; v - ^?y$> ; -i -:; y •;: ^y^y:yi Hr :£ry { /:# 5W' • -V -^*S#: W. v^SIc ; 
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Quick— Name Four Famous Variables! 

Just to be sure you've got the idea, find four acceptable variable names in the list 
below: 



AM 
8Q 



1Y 
5 



LO 
WC 



Z 

1A 



OE 
17 



Got all four? Good. Check the list in the margin to be sure you got them right. 
If you didn't get all four, re-read UFO 4-2 and the examples above. 

Why Use Variables? 

Having numbers in memory means you can do all kinds of number-juggling and 
crunching without having to refer directly to the number. 

Type in the following: 

A-l (ENTER) 



5=10(1J IER) 

C=i234dNTlR) 

You have now stored the three numbers in memory. (If you're not convinced, use our 
friend PRINT just to be sure.) 

Now try these Print statements: 

PRINT A + B 
PRINT C-B + A 
PRINT B*C 
PRINT C/B 

Now you've performed several calculations, but your original three numbers are 
still in memory. . .for use again. 



llVnswer: 



Wmm 



LO 



Z 






Dotft forget t$ 



after* 
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From One Variable to Another. . . 

You just PRINTed several calculations on the Display. But suppose you want to 
save the results inside the Computer? Easy — just save the results in another 
variable. For example: 

D = A + B 
This statement says: "Add the value of A to the value of B, and copy the result 
into variable D". 

Go ahead and PRINT D. While you're at it, PRINT A and B as well, to see that they 
are unchanged. 



If ANSI ; '-"- UFO #4-3. 

nt /LZ~<^ The m^ 

yariabl^-e^ssion^^^^^^^v 

The Computer "solves- ' or evaiu^s the ^/^/o/?, and puts its value into the variable 
you named. 




sionisaseq^ 
like .+• (pins) and - (minus), an 







r,3*-fi/7.:;..:-;;; : - : \ 

1 (any simple number can be used wherever an 
expression is allowed) 



Take that, Miss Rutabaga! 

The statements 



A = A+1 



make perfect sense to the TRS-80. Now what would your old grade school teacher 
have thought of that? What do YOU think of it? Try to predict what happens to 
variable A. 
Check your conclusion by typing in the statements: 



A=I CENTER) 



A = A+i CENTER) 
and then printing the value of A: 



PRINT A CENTER) 
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As you've probably discovered, when the same variable name is used on both 
sides of the equals sign, the old value of the variable is used in computing a new 
value. 

Poets Have More Fun. . . 

By now you know that the TRS-80 is a whiz with numbers — it can add, subtract, 
multiply, divide . . . and conquer them. (Every school kid should keep one in his 
pocket.) But what does the TRS-80 do for fun? Logarithms? quadratic roots? 
surds??? 

Well, why not give the old number-cruncher a tease by storing something clever 
in one of those variables? Type: 

Nl= "THE TRS-80 IS A SQUARE" 



and press (ENTER) . 



?TM ERROR 



There — just as you expected. Instead of taking a little good-natured kidding, 
the Computer gets all upset and accuses you of violating its Trade Mark! 

Well, let's not jump to conclusions. Look up TM ERROR in Appendix C. (You 
might as well get familiar with that section now, because you'll be running into 
these error messages more and more.) 




UFO #4-4. 

There are two kinds 
variables can store numbers; 
characters, or 



— numeric and string. Numeric 
es can store sequences of 





If you looked the error message up, you know it means, 
'Type Mismatch Error". You tried to assign a string of 
characters (or string for short) to a variable which can 
only contain numbers. That's kind of like trying to put 
a square peg into the proverbial round hole — only 
harder. 



"THE TRS-80 IS A SQUARE" is a string value; it can't be added, subtracted, or 
otherwise "numberized" into submission. And it can't be stored in a numeric 
variable like Nl! 
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Here are some other examples of string values: 

"JOHNSON, B. Q. 3838 WINDING WAY" 

"RED YELLOW BLUE GREEN ORANGE BLACK BROWN PURPLE" 

"OCTOBER 12 B'S BIRTHDAY" 

"17 + 18 = 35" 

"1 INCH = 2.54 CENTIMETERS" 

">»» >»»" 

With strings like these, who needs connections? If only you could store them 
somewhere ... 

Cheer up; you're about to stumble onto something big . . . 

The Almighty $ 

They say money can buy just about anything ... so why not add "a little 
something" to our last name-it statement. Type in the following line (don't 
forget to add the $ after Nl): 

Ni$= "THE TRB-80 IS A SQUARE" 

and press (ENTER) . 

Now type: 



PRINT Nl$ (ENTER) 

Money talks! 

Now that you've oiled the TRS-80's palms a bit, see if it'll take another one. Type: 

Nl* = "T RS-8 IS A SHAMELESS :NTER) 
HUSTLER" CENTER) 
PRINT Nl$ fENTER) 

Getting the idea? 



String values a*e ^Imost always % 
<fcubte-quotes, so you aM SASICknowc 
the values begin and end. 



^:inj3i<ie:,j 




Yw<^a^ 
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Adding $ at the end of any variable - jnuaime-nial^ ft : A- ^ti^^rla|rt^. : -; 

String variables can ^oreart^ 

letters, punctuation symbois> iiumerals, and even spaces. 

(Everything, that is, except another set of quotation marks.) 



Here are some examples of string variable names: 

Al$ D$ LO$ KK$ B$ 



ZX$ 




Whoa partner! Did you happen to get 
storing string values? If you did, it was 



while 
n?OS 
error which means you ran out of string spiac^ (And if 
you didn't, consider yourselflueky and forge ahead J If 
youdid, type CLEAR 100 (HUB) and try again; More 




More Good News 

Adding the $ to a variable name actually creates an entirely new variable — and 
you can still use the old one (without the $) for storing numbers. For example, 
you can have: 

A = 1001 

while 

A$="FRIED CHICKEN 1*98" 

Input/Output Statements (I/O) 

Remember when you programmed TRS-80 to ask your name, but it wouldn't 
accept your answer? Well, it's time to educate your Computer past the talking 
parrot level and teach it some manners by combining a name-it, a graphic, an 
output and now an input statement. 

Type NEW, then enter this program. 

10 CLS 

20 PRINT "HI ! I 'M YOUR TRS-80 COMPUTER! ! " 

30 PRINT "WHAT'S YOUR NAME?" 

Now, the trick is to tell the Computer to input your name, and to store it in a 
variable. 



NU/W0W6 



?-TT*IN*S 



^ 


loot D A$ 


FPIPP oHtCJeEN SI.9S 




| 






1 






1 






1 
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What kind of variable — string or numeric? Well, contrary to rumor, computers 
have not made obsolete all those good old names like DON, RICK, SYLVESTER, and 
PATRICIA. So we'll need a variable that can store alphabetic info ... a string 
variable. How about N$? 

Okay, so we've got a "place", N$, for your name. Now how do we make the 
Computer input your name into N$? 

Here's another case where BASIC is like English. Just say, "Input my name!", by 
typing: 

40 INPUT N$ (ENTER) 

Hold it — don't type in your name yet Remember, line 40 is part of a program 
stored in memory. The Computer won't actually execute it until you type RUN. 

But first let's add another line to the program, to make the Computer show you 
it really has learned your name. 

Type: 

50 PRINT "HELLO " S N$ » " ! ! " (ENTER) 

Now list the entire program, making sure everything's okay. Retype any lines 
which contain mistakes. Got it right now? Then go ahead and RUN the program. 
(RUN (ENTER) .) 

HI! I 'M YOUR TRS-B0 COMPUTER! ! 
NHAT'S YOUR NAME? 

? 

The ? means the Computer has reached line 40, and now it's waiting for you to 
type in your name and press (ENTER) . Go ahead and speak up! For example, if your 
name is "MOE", type: 

?MQE (ENTER) 

Here's how lines 40 and 50 work: 

When the Computer reaches line 40, it stops and waits for your answer. Just as 
soon as you press (ENTER) , the name you typed in is stored in the variable N$. 



It loses a little in the translation* but don't worry, to 
the TE3«8<Vit*s pure poetry! 



Hope you don't mind putting words in your Computer's 
mouth ^ 'Cause thafs the only way to getit to say 



Besure to type in a space rig 

the second ". YouTl see why in a few minutes. 
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Line 50 tells the Computer to print the "canned" hello message, including a 
comma and a blank at the end; then to print the value of N$; and then to add a 
couple of !! marks at the end of your name. If you left out the blank space after the 
comma, the Computer's greeting would have looked something like this: 



HELL0M0E! ! 
See how important the space is? 

Program (Do It Yourself #4-1). Add to the "good-manners" program so the 
Computer next asks your age in years, and then tells you exactly how many days 
old you'll be on your next birthday (give or take a few days for leap years). 

Hint: You need to make the Computer input your age and store this number in a 
variable (string or numeric?). If you're not sure where to go from here, then 
think about how you'd do it. "If I'm Y years old, how many days old will I be on my 
next birthday?" 

Use these lines to write out D.I.Y. #4-1. 
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0* Chapter Checkpoint #4 

1. A complete BASIC instruction is called a We've covered five of 

these. Can you name two of them? and 

2. Which of the following is not a variable name? 

a. AL 

b. B 

c. 1L 

d. C2 

3. TRUE FALSE (Circle one) 
Numeric variables store numbers. 

4. TRUE FALSE (Circle one) 

String variables store string. (Of course not! But what do they store?) 



5. I/O, a very important abbreviation, stands for 

6. A/An (Expression) (Graphic) is a sequence of variables, math symbols, 
and numbers. (Circle one) 
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50 














BASIC Training, Continued 



Remember Do It Yourself #3-2? That's where you wrote a nine-line program to 
print simple fractions in decimal form. No need to enter it again. Just look at 
this listing: 



10 CLS 
20 PRI 
30 PRI 
40 PRI 
50 PRI 
60 PRI 
70 PRI 
80 PRI 
90 PRI 



NT 1/2 
NT 1/3 
NT 1/4 
NT 1/5 
NT 1/6 
NT 1/7 
NT 1/8 
NT 1/9 



Repetitious, isn't it? (How's it ever going to figure my taxes at this rate?) Well, 
take heart: modern computer science has come up with A Better Way. . . 

Using name-it statements, and a few other simple tools, you can do a whole lot 
more with just five program lines. Look at this sleek little beauty: 

10 CLS 

20 A=l 

30 PRINT 1/A 

40 A = A+1 

50 GOTO 30 

At the front of this book, we said the Computer's language was a lot like English^ 
Well, go ahead . . . read through the program, using normal English in place ol 
the BASIC words. 



Mggp 

mmm 



JhHH$6! 



h&HIII 



*o, ifs not Pulitzer-prize material, but don't let that 

iw^^iWA-y^ Perhaps it'll help to add a few 

ation points as you read through the 




lliliiii^^^ii 
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Here's one reading of the program: 

"(10) Clear the Display! 

(20) Store into A the number 1. 

(30) PRINT the result of l divided by the current value of A. 

(40) Give A the new value A+l. (In other words, increase A by 1.) 

(50) Go back to line number 30!" (Notice GOTO is one word.) 

Whew! Now you see why the TRS-80 uses BASIC instead of English! 

Try out the program. First be sure there's no program already in memory. 
(Remember how to do that? . . . Tell the Computer you want to do something 
NEW. . .) 

Then type in lines 10 through 50 very carefully. After you've finished, LIST the 
program and double-check each line. If you find any errors, retype the line so 
everything's perfect. 

RUN the program. 



Whoa!! Did you see .5, .333333., .25, etc. go by? Press the (BREAK) key to stop the 
program and get another > on the bottom line of the Display. 

"Think your way" through the program; perform each step, then go on to the 
next line. You'll find that there isn't any end to it! It just keeps going back to 
lines 30, 40 and 50. 



I xC^M^M^^mk 'i : 5il • %&&£ S ':&&&i&:v?^:*y h:^y 



S®3^^S^^SS^SSS^^I^^^^iS$SiKiSI 














Print Punctuation, Revisited 

One reason the Display is scrolling faster than you can read it is that TRS-80 is 
printing just one item per line. You can't use a "print-list" in this program since 
the items are computed one at a time. 

Remember when we introduced the semi-colon? We said it told TRS-80 that 
there's another item to be printed, but that's only part of the story. 

Suppose you put a semi-colon at the end of a "print list", and didn't follow it with 
any more items to be printed. For example: 

30 PRINT i/A5 

(Make this change in your program and RUN it.) 
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Now the computer will PRINT as many items as possible on a single line before 
beginning a new line. Here's what's happening: 




Printing in Columns 

Whenever you use trailing semi-colons in a PRINT list, TRS-80 prints the items 

one after the other, as close as possible. It does insert a single space after each 

number, and a space in front of positive numbers. (If the number is negative, a 

minus sign goes in the leading space.) 

In your present program, that leaves you with a somewhat confused-looking 

display. No self-respecting typist would organize a table of numbers that looked 

like that; columns would look so much better . . . 

Which leads us to that other handy piece of print punctuation, the comma. 

Type in this immediate line: 

PRINT 1/2. 1/3. 1/4. 1/5 » 1/B » 1/7. 1/8. 1/9. 1/10 
and then this one: 

PRINT "ZONE 1" , "ZONE 2" . "ZONE 3" . "ZONE 4" 
Now change your program to use a trailing comma instead of semi-colon: 

30 PRINT 1/flt 
and RUN. 
TRS-80 is quite a typist after all (to say nothing of a math wiz!). 
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continuing the list. The four print zones start at columns 1 {left 



ing 







^ B « ww? ^^v««j «« ».u »« a M «. « K /one when the comma is 



i cursor is already at the beginning 



PRINT punctuation is just one of many tools available for making neat, orderly 
display output. We'll cover the other tools in a later chapter. For the time being, 
we can do quite a lot simply using commas and semi-colons. 



Now for the Pause that Refreshes 

There's a simple way to tell the Computer to pause so you can read the Display. 
Here's how: 



After you type RUN (ENTER) , quickly hold down (SHIFT) and (§) together, until the 
Display stops scrolling upwards. When you want the Computer to continue, 
press any key. To pause the execution again, use (SHIFT) (j§) again. 

keys! RUN and pause it a 



Go ahead and try it — and be quick with the (SHIFT) 
few times. 




During pr ogram e xecution, you can force the Computer to pause by 
pressing (SHIFT) (f). Press any key to continue execution. 
Motel 4 users: You can also press (FT) to pause program 
execution^ 



54 



By the Way, Who Was that Masked Man? (GOTO) 

GOTO was your first program flow statement. The TRS-80's normal routine is to 
do one program line after another until the last line has been executed. But line 
50 says, "Forget the normal sequence and go back to line 30." 



Computer to skip to the specified line, no matter where it is in the 





Be careful with "unconditional branches" because they 
sometimes sprout ?UL (or ?m^^^ ; i^^0$l^- 
UsuaUy,the Bug just M^U^^TPn^^^M^^^ 
told TRS-80 to send a line '"somewhere," but that 
"somewhere" can't be found in your program. 



The Big IF... 

What if you don't want to play quick-draw with the (SHIFT) @ keys? Or what if 
you don't care to see every fraction from 1/2 to 1 millionth and beyond? 

There's another "smarter" statement you can use in this case. Add th e following 
line to the program. (Be sure the computer is READY. Press (BREAK) if it's not.) 

45 IF A=10 THEN END 
List the entire program. It should look like this: 

10 CLS 

20 A=l 

30 PRINT 1/A 

40 A = A+1 

45 IF A=10 THEN END 

50 GOTO 30 

Fix any errors by retyping the incorrect line. 
Now RUN it. 




Notice that we've inserted the new line between lines 
40 and 50. Now do you see why it's a goo<l idea to 
"spread" the program line numbers? If the program 
lines were numbered 1, 2, 3, 4, 5, you couldn't insert a 

/ Jlimt ; ': >/-"^:; ! f //' / ; ;':? : , - ; / / : ? / ■ ?: v ^ ; - -V///V ^llfll^^lllf : 

■'" TSovf s that for convenience! f^^'MtmM-lf!'. 
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Reading Between the Lines 

Read line 45, "If A equals 10, then end the program right now — don't go any 
further." When A equals 10, that means we've already printed 1/9, so it's time to 
end the program. 

What if A does not equal 10? The IF . . . THEN . . . statement doesn't say it, but 
the Computer knows what to do in this case: it proceeds directly to the next line in 
the program and ignores what comes after THEN . . . 




In our line 45 above, the test is "Does A - 10?" Here "A = 10" is not a name-it 
statement. The variable A is not given the value 10. Instead, the Computer 
simply tests A to see whether it already contains (equals) the number 10. 

The action in line 45 is END. We'll have more to say about END later on. . . but for 
now, let's just say it's a great way to end a program "before its time"! 

Program (Do It Yourself #5-1). Modify the program so it works out these 
fractions: 1/10, l/ll, 1/12, . . . , 1/19. Hint: Change the starting value of A (line 20) 
and the cutoff value of A (line 45). 



Go Ahead and Talk My Ears Off 

After that last UFO, you need someone to talk to. Someone who'll understand (or 
pretend to). 
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Look no further — your Computer's ready and willing. Just erase whatever 
program is in memory (with NEW) and type in this one: 

10 CLS 

20 PRINT "HI. I 'M YOUR TRS-80 THERAPIST! ! " 

30 PRINT "WHAT'S YOUR NAME?" 

40 INPUT N$ 

50 PRINT "WHAT'S ON YOUR MIND* 

S0 INPUT N$ 

70 PRINT "VERY INTERESTING* . 

80 GOTO B0 

LIST the program, check it carefully, and RUN it. Now go ahead and spill out 
whatever's on your mind . . . only keep each message short (50 letters or less) and 
don't use any punctuation. 



TELL ME MORE." 



When you've said your peace, press (BREAK) to get your Computer out of this 
endless loop. Otherwise it'll never stop asking for more and more juicy details. 

Program (Do It Yourself #5-2). Add a line to the What's on Your Mind 
Program so that when you type, THAT'S ALL", the session comes to an abrupt 
END. 

Hint: Take a look at line 45 from the fractions program: 

45 IF A= 10 THEN END 

That's the kind of test you need to make, only the variable is N$ and the value 
you're looking for is THAT'S ALL". 

Now where do you put the extra line? Well, read through the program, and 
decide where you want "the doctor" to check your message. 

Compare your program with ours in Appendix A. 



^^^^^^^^P^^^^H^H^^^^^^^^^^^^^K^^WB 




= i.^^^^ml^.l^ei For the Mme $&jta&; feep the 
' for &eT "" 
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Prompted INPUT 

As you've discovered by now, one of the most common operations is inputting 
from the keyboard to a program. Typically, the program asks a question 
(referred to as a prompt), and you type in a response. For example, type in this 
program: 

10 PRINT "WHAT IS YOUR NAME" 5 

20 INPUT N$ 

30 PRINT "HELLO" 5 N$ ? " ! " 

First RUN this program so you'll be able to compare it to a new approach we're 
about to use. 

We're going to combine lines 10 and 20 into one statement, called "prompted 
INPUT". DELETE line 10, and change line 20 to: 

20 INPUT "NHAT IS YOUR NAME" ? N$ 

Go ahead and RUN the program, to see how the new line 20 does the work of the 
old lines 20 and 30. 

Prompted input can be used to input several variables: 

20 INPUT "NAME AND AGE (NAME * AGE) " 5 N$ t AG 
30 PRINT N$i "IS" 5 AG? "YEARS OLD* " 



Notice we don't put a question mark in the PRINT 
message of line 10; that will be supplied by the INPUT 
statement/ Also notice the trailing semi-colon at the 
end oniite 10; that prevents the cursor from dropinng | 
do\rotothene^ 




input statement can printa promptihg message before stopping 
to wait for your input. The general form for prompted input is: 



input "prompt message"; * 



to list 



where variable list contains one or more variable names, all but the last followed by a 
comma. Prompt message must be enclosed inside quotes, and the semi-colon after 
prompt-message is required. 
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More Ways to Test a Number 

In all our IF test THEN action statements so far, we've tested for equality. There 
are times, however, when we're not interested in whether two numbers are 
equal, but rather in whether one is larger than the other. Remember the 
fractions program? 



10 


CLS 


20 


A=l 


30 


PRINT 1/A 


40 


A = A ■'+ 1 


50 


IF A = 10 THEN END 


60 


GOTO 30 



Suppose we want to end the program when l/A becomes smaller than 0.0125. In 
other words, we don't want to print out any fractions smaller than .0125. The test 
we need here is, "Is l/A less than .0125? If it is, then end the program." 



*t^99 



t«\» 



<" and "> 

The two symbols, < and > , can be used to make neat designs on the Display. But, 
as veterans of the New Math and the Old Algebra already know, they can also be 
used to describe a very basic (no pun intended) relationship between two un- 
equal numbers: which of the two has a greater value. 

The < and > signs are used exclusively in tests: 

IF A < 10 THEN 20 
IF A > 10 THEN END 

"<" means "is less than"; ">" means "is greater than." 



As a memory aid. . In both cases, the smaller side of 
/the symbol is closer to the smaller of the two (Juanti- 
•ties; and ihfc larger side* closer to tlie larger quantity. 
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<, > and = can be combined to produce a full vocabulary to describe any 
relationship between two numbers. 




^describing the relation between any 
numbers: <, = , >, and various ooifiMnatfons of these three- 



Is less than 

> is greater than 

.<•= or =< Is less than or equal to 

>-or=> Is greater than or equal to 

;.■;". <> or >< ' Is not equal to 

These are known as ''reiatidnal operators" , They can be used inside any test; for example; 
wiestim action. . 



Program (Do It Yourself #5-3). Revise the simple fractions program so that it 
exits the loop when l/A is less than or equal to .0125. 
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Hf Chapter Checkpoint #5 

1. IF you want to use a "conditional branch" in your program, THEN you must 
include an statement. 

2. Is TRS-80 (<), (>), or ( = ) other microcomputers? 
(Circle one but please don't hurt TRS-80's feelings!) 

3. Although you'll probably get tired before TRS-80 will, you can press 
( ~) O to give it a rest (i.e., a pause in the program). 



4. If you want TRS-80 to skip a specific line, you must tell it where to go by using 



5. The two types of PRINT punctuation are and 

6. "Prompted INPUT" allows you to take a PRINT message and an INPUT line and: 

a. have tea 

b. combine them 

c. unconditionally branch them 

7. To end a program before TRS-80 reaches the last line, use this BASIC state- 
ment: 

a. END 

b. THAT'S ALL FOLKS 

c. BREAK 
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\.fi^'~A 





« ^7~ , L^M Jiajp>Jp^pB^»gi^^^^^BMK«i^^M 



Tricks and Treats 

You've earned the right to some of BASIC'S luxuries— the little things that make 
the Computer easier and more fun to use. The longer your programs get, the 
more necessary some of these "extras" will become. 



When you want to PRINT something (which is quite often, right?) you don't have 
to type the word PRINT— you can use the ? as an abbreviation. Try these 
immediate lines: 

?"THIS IS AN ABBREVIATED PRINT STATEMENT" 
? 1234/100 

You can even use the abbreviation inside a program: when the program is listed, 
you'll discover that BASIC replaced ? with the full word PRINT! For example, type 
in these lines: 

10 ? "HON DOYOU INTERRUPT AN ENDLESS PROGRAM?" 
20 GOTO 10 

RUN the program. Press (BREAK) to interrupt it. Now LIST it. See what happened 
to the abbreviation? Also notice that the ? inside quotes wasn't mistakenly 
changed to PRINT. 



Don't 



to press I 



) at|he end of £&ch line!; I 
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UF0#6-1. 

When typing in an immediate line or a program line, you ean use ?as 
m abbreviation for the keyword print. As long as ? appears where 
print would normally appearvthe CompM 



Multi-Statement Lines 

Take a look at this program (you don't need to type it in): 

100 CLS 

200 INPUT "GIVE ME A NUMBER t ANY NUMBER" 5 N 

300 PRINT 

400 PRINT "HMMM* ♦ ♦ VERY INTERESTING. ♦ ♦" 

In a case like this, the line numbers hardly matter at all — you can describe the 
sequence without referring to the line numbers: "Do the statements in order, 
from first to last." 

When line numbers aren't important, why use them? Of course, a BASIC prog- 
ram requires that every line have a number — but not every individual state- 
ment. You can put several statements into one program line. All you have to do 
is separate the statements with colons. Here's the same program, using two 
multi-statement lines: 

100 CLS: INPUT "GIVE ME A NUMBER * ANY NUMBER" ? N 
200 PRINT: PRINT "HMMM* • ♦ VERY INTERESTING. ♦ ♦" 

We can even pack this entire program into a single line: 

100 CLS: INPUT "GIVE ME A NUMBER » ANY NUMBER" ? N: PRINT: 
PRINT: "HMMM* ♦ VERY INTERESTING* ♦ ." 

When you type in a line this long, you'll notice that it takes up two lines on the 
display. The cursor automatically "wraps around" to the beginning of the next 
line. 



^Wfe chose increments of 100 just for variety — - could 
liave used ones, tens, etc. line 300 is there just to 
the Computer's response from the number 



fve had to break the line in this manual, 
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Why Use Multi-Statement Lines? 

The primary reason is to save memory, so you can get more actual program into 
your Computer. Think of line numbers as "overhead"; they do not contribute to 
the actual computing power of a given program. 

Another reason is to group together two or more simple, related operations. For 
example, assigning initial values to variables, clearing the screen and printing 
a message. 

How Many Statements Can You Put in a Single Program 
Line? 

The number of statements doesn't matter. The limit is set by the number of 
characters (letters, numbers and spaces) in your line. BASIC program lines can 
contain up to 255 characters. You can type in up to 240 characters directly, and 
sneak in an extra 15 with a technique we'll describe in the next chapter. 

How Many Statements SHOULD You Put in a Single 
Program Line? 

You may notice that our last program line, containing four distinct statements, 
is a little hard to follow. This is one reason for not packing too many statements 
into a single line. 

Another limitation for multi-statement lines is that you cannot GOTO the mid- 
dle of a line — only to the beginning. Take a look at this program: 

100 INPUT "YES OR NO" * R$ 

200 IF R$ = "YES" THEN 500 

300 IF R$ = "NO" THEN G00 

400 GOTO 100 

500 PRINT " THAT 7 S BE I NG POSIT I UE ! " 

550 GOTO 100 

G00 PRINT "WHY SO NEGATIVE?" 

G50 GOTO 100 

In this program, the line numbers are important in describing the sequence of 
operations: if you type "YES", control goes to line 500, then 550, then 100; if you 
type "NO", control goes to line 600, 650, then 100; etc. 
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What would happen if you combined lines 200 and 300 into a single line? 

200 IF R$="YES" THEN 500: IF R$="N0" THEN G00 
Look at the flow diagram of our new line: 

rf Trut — \ s+ To Lint. 500 s+ To 600 

If Ri = *VLS"TUen£00:U K$= f, N0"TA^ bOO 



i 



Fake 

To Next Line 



All roads lead away from the second statement, IF R$= "NO" THEN 600. There is 
no way for that statement to be executed! 

Program (Do It Yourself #6-1), Use multi-statement lines wherever possible 
in the following program. Your final program should use five line numbers. Be 
careful not to create any "unreachable" statements (statements that can't ever 
be executed because the program will always branch around them)! 

100 INPUT "YES OR NO" i R$ 

200 IF R$ = "YES" THEN 500 

300 IF R$ = "NO" THEN G00 

400 GOTO 100 

500 PRINT "THAT'S BEING POSITIVE ! " 

550 GOTO 100 

S00 PRINT "NHY SO NEGATIVE?" 

650 GOTO 100 



You can put several basic statement in a single program line. 
Put a colon after each statement except the last ane; i ; •./., 
[ statement- statement: statement '■:■ 
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Automatic Line Numbering 

Here's a way to reduce the amount of typing you have to do. First erase the 
previous program, then type: 

AUTO (ENTER) 

The Computer will respond by displaying a line number, followed by the cursor: 

10 

Now type in CLS and press (ENTER) . The Computer will respond by displaying 
another line number: 

20 

Type: 

PRINT "THIS IS GOING TO BE A SHORT PROGRAM" 

and press (ENTER) at the end of the line. The Computer will display the next line 
number: 

30 
We want to stop entering lines, so press (BREAK) . The Computer will display a: 

READY 
> 

Now LIST the program. 

The Computer provided the line numbers and all you had to do was type in the 
actual BASIC statements. 

How come the Computer started at line 10 and counted by tens? These are called 
default values (what the Computer provides if you don't ask for anything else). 
You can specify any starting line number and any increment between lines. 
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For example: 

AUTO 100 t 50 

will give you line numbers beginning with 100 and increasing by 50 each time 
you press (ENTER) 

100 * 150 t 200 * 250* ♦ ♦ 

During AUTO line numbering, the Computer provides the l ine nu mber; all you 
do is type in the program statements. Each time you press (ENTER) , it stores the 
line and provides the line number for the next line. Press (BREAK) to get out of 
auto-numbering at any time. The current line will not be stored. 

If, during AUTO line input, the Computer brings up a line number that is already 
in use, it will display an asterisk immediately after the line number. For 
example: 

30* 

indicates there is a line 30 already. If you do not wish to change this line, press 
(BRESK) . 



So You Didn't Get Your Ph.D in Speed-Reading? 

What happens when your program is too long to list on the display all at once? 
The lines scroll off the top of the screen before you have a chance to read them. 



If you've had this happen before, maybe you figured out that (SHIFT) (f) will 
pause the listing, and (BREAK) will stop it. 
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Well, there's an even better way: you tell the Computer exactly which lines to 
list. 



Command 

LIST 100 
LIST 100-110 
LIST -190 
LIST 200- 
LIST* 



Tells TRS-80 to list 

Line 100 only 

Lines 100 through 110 

Lines up through 190 

Lines 200 and higher 

The last line entered or executed. 




} specifies the highest-nti 
the lowest-numbered line in the program is used; if e 

"current line", i.e., the last line entered or i 

ie number \ 




How to Get Rid of Those Unwanted Lines 

Suppose you've just typed in a 40-line program, and you realize that there are 
about 12 unnecessary lines in the middle of the program. How do you delete the 
unwanted lines? Well, you could replace each one with an empty line. For 
example, if the lines are numbered 100, 110, 120, . . ., 210, you could type: 



100 (ENTER) 



110 (ENTER) 
etcetera, all the way to: 



210 (ENTER) 
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There's a simpler way. Type: 

DELETE 100-210 
TRS-80 will automatically delete all lines in the specified range. 

j^ d ^^ 9le . Iine or a ™w of ,ine s> use :^:oEi^-dbm^d;.?":-----J 

^^^^y// delete startline-endline 

To delete a Single line from a program tVDe 
• ••• DELETE Ime 

Let's See. . .Now Why Did I Write that Program Line' 

STa^u^n thi ! inf0 ™ ati0 ! 1 *>™ ■» Paper, but that's not necessary. You 

%ZZ&2S&££*it program! AU * "- is a -* »*»° 

Try typing in this line: 
REM PRINT "THIS IS A REMARK" 

^pS^a^atZ: R ™ W1S BAS,C - *« ^ ~ "^ »- 

10 REM. . . THIS IS A SAMPLE REMARK STATEMENT 
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REM is often helpful following a BASIC statement, as in: 

20 Y = Y + B: REM INCREMENT Y BY B 

There's a handy abbreviation for REM — it's the single apostrophe, (SHIFT) CD on 
your keyboard. 

You use it like this: 

30 X = X + I 'ADD ONE TO THE COUNTER 

Notice there's no colon separating the two statements. The colon is "built-in" to 
the ' abbreviation. 

Note: To use REM or ' in a multi-statement line, you must make it the last 
statement in the line — because TRS-80 will ignore whatever follows REM. 





The re& f mma^') statement tells imm to i 

7;^"^0m^;U 

rm/iatinn f tit. ♦ dcm Thic ic Aenotflafh/ itosfi it &* ih& mM <M ::■■. :;& 






KBIMv 
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0* Chapter Checkpoint #6 

1. What is another way you can command TRS-80 to PRINT? 

a. TYPE 

b. type "GET BUSY" 
C. ? 

2. Which punctuation mark helps you create multi-statement lines? 



3. Since TRS-80 never sleeps, REM obviously doesn't refer to its Rapid Eye 
Movement. Instead it is short for 

4. You can easily save time by using the AUTOMATIC LINE NUMBERING. 

a. What command must you type to use this function? 

b. What key must you press to get out of it? ( I 

5. Unwanted lines are the bane of the programmer's existence. To get rid of 
them, type followed by the offending line(s) number. 

6. By typing and a specific line number or line-range, you can easily 

list a particular line or line-range. 
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Don't Kill That Bug— Edit It! 

Your TRS-80 has another very special feature. Like AUTO and DELETE, this 
feature is provided to save you time when you're creating and modifying a 
program. It's called the Edit Mode. 

The Edit Mode lets you change the contents of a program line quickly and 
efficiently so you don't have to re-type the whole line just because of a simple 
typing error. 

Before starting an edit session, be prepared for some surprises. 

Many keys are given special functions — as soon as you press one of these keys 
the Computer does what that key tells it to. You don't have to press (ENTER) to be 
"heard" in the Edit Mode. So, to get the most benefit (and the least confusion) 
from this chapter, we suggest you follow exactly the steps given. 

The Edit Mode is like most other tools — to see it work, you've got to give it 
something to work on. So we're going to make up a series of program lines badly 
in need of editing. Go ahead and type in this line exactly: 

100 THE GREEAT INTENTION SINCE THEEE PRE-SLICED BANDANNA 

There are two ways to start editing this line: you can try to RUN it, in which case 
BASIC will immediately throw you into the Edit Mode for line 100, or you can use 
a special command, EDIT, to tell BASIC to edit the line. 

Type: 

EDIT 100 




entered the Edit Mode alfeadyv For 
g a syntax error, say, in line 10, 
iy this: ' . 



|^iI|ROR.IN 10-.. 



r3wetoldyou* 

f something like this s 
ft tell you was that you had just 
fcered. . . the Edit Mode. {At that point, it might have 
seemed more like the twilight zone!) 
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meaning "I want to edit line 100." BASIC will display the line number followed by 
the cursor: 

1008 
You are now in the Edit Mode. YOU are the editor. 



during edit operations* 







Cursing (Cursor-ing?) Through the Line 

The position of the cursor is very important in the Edit Mode, because any 

editing changes you make will take effect at the cursor position. Right now the 

cursor is sitting at the beginning of the line — on the first c haracter. 

You can advance the cursor through the line simply by pressing (§PA£EBAH). Each 

time you press fSPACEBAR) . the cursor displays another character in lme 100. You 

aren't changing the line, just looking at it. 

Go ahead and try it. Press ftPAfcEftAR) over and over until the entire line is 

displayed: 

100 THE GREEAT INTENTION SINCE THEEE PRE-SLICED BANDANNAS 

Pressing fSPACEBAR) now has no effect. The cursor can't go any further — it's 
reached the end of the line. (Remember, you aren't changing the line yet, just 
displaying it.) 

Now let's backspace the cursor. Use the © key, just as you do in the immediate 
mode. But you still aren't changing the program line itself. 
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You can use © to back the cursor all the way to the beginning of the line: 



In short, you can use f SPACEBAR) and © to position the cursor wherever you want 
it. 

Listing the Line 

To list the entire line in its current form, simply press CD- The line will be 
displayed, and a new "working copy" will be started. 




UFO 

in the Edit Mode, use (I 



@to 



•.-:•••••:•••:: :. • "•' ■-■■■:■ ■ r ': ._/. \r ■ ■■ .' \.\ . : '} 



Neither key has arty effect on theiine in the Edit Mode. 

posiWoh the «airsot to the point at which you need to edit the line. 

the entire current Hne and stert a new wo rkingcopy, 



Deleting a Character 

Let's get rid of those extra letters in the line. Start by positioning the cursor to 
the first E in "GREEAT". 

100 THE GR1 

Now you need to tell TRS-80 to delete the character immediately following the 
cursor. The QD key serves this function. Go ahead, press QD. The deleted 
character will be displayed inside ! !: 

100 THE GR!E!£ 

The exclamation marks have not been added to the iine — they are simply 
displayed so you'll know exactly which character was deleted. 

DONT MOVE THE CURSOR NOW! 








n 



It wouldn't mess up the actual program line to use (SPACEBAR) or ©, but it would 
make the displayed line a little confusing, because of the exclamation marks 
that aren't really there. 

Just to be sure the character has been deleted, list the entire line by pressing CD 
twice. 

Now let's delete the two extra E's in "THEEE". After positioning the cursor, you 
could press GD twice, but there's an easier way. You tell BASIC to delete the next 
two characters, by typing GDGD- Now the ! marks will surround the "EE". 

100 THE GREAT INTENTION SINCE THE ! EE ! S 

Press QD twice to see the line in its current form. 

Now use the delete function to change "BANDANNA" to "BANANA". After making 
the deletions, press CD twice. Your line should look like this: 

100 THE GREAT INTENTION SINCE THE PRE-SLICED BANANA 



Changing a Character 

Now we're going to change incorrect characters into correct ones. For example, 
we want to change "INTENTION" to "INVENTION". 

First position the cursor to the "T" in "INTENTION": 

100 THE GREAT IN8 

Changing a character requires two keystrokes. First you press CD, then you 

press the key representing the new character you want. In this case, you will 

need to press QD. Think of the key sequence this way: 

Keystroke Meaning 

ftp "I want to change the next character." 

QD "Here is the new character." 

Go ahead and try. 

Nothing seems to happen after you press QD. But the Computer is waiting for 
you to tell it what new character to use. But when you press CD, the V is 
displayed where T used to be: 

100 THE GREAT INUi 
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Press CD to list the remainder of the line and start an updated working copy: 

100 THE GREAT INVENTION SINCE THE PRE-SLICED BANANA 

100 8 
If you want to change two characters at once, you could type: 

(X) GD two new characters 
In general, the change function works like this: 

® GD » new characters 



Inserting Characters 

So far we know how to delete characters and how to change characters. But what 

happens when there's something missing in the line, like the "EST" alter 

"GREAT"? Deleting or changing characters won't help here — we ve got to insert 

some. 

Inserting characters is quite different from deleting or changing them. Onceyou 

have started inserting characters, the special function keys like CE and CCJ no 

longer have a special function. The keyboard (with a few exceptions) acts as it 

does when you are typing in a line for the first time. You simply type in the 

characters to be inserted. 

When you are through inserting characters, you use a special sequence to 

"escape" from this insert mode and re-enter the normal Edit Mode. 

Here is a summary of how you insert characters: 

Keystroke Meaning „ 

(T) "I want to start inserting at the current cursor position. 

new characters "Put in these characters." 

( SHIFT ) (D "I'm ready to stop inserting characters." 

Now we are ready to try inserting the letters "EST" after "GREAT'. First use 
(SPACEBAR) and © to position the cursor to just after the "GREAT": 

100 THE GREATS 
Now press D to start the insert mode. Nothing will happen yet — but whatever 
you type will be inserted into the line at the current cursor position. 

Now type in the letters to be inserted: 

100 THE GREATEST^ 
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Before escaping from the insert mode, let's try making a mistake. Type in the 
letter Z: 

100 THE GREATESTZ8 

You can correct this mistake easily — simply use © to backspace and erase the 
"Z": 

100 THE GREATEST^ 

Each time you use @, another character is erased from the line — so be sure not 
to backspace over the good part! 

Your line should look like last one listed above . Now y ou're ready to escape from 
the insert mode into the Edit Mode. Press (SHIFT) and hold it down. While 
holding down (SHIFT) , press ®. This is the escape sequence. Release both keys 
and you will be back in the Edit Mode. 

List the remainder of the line (press (D): 

100 THE GREATEST INVENTION SINCE THE PRE-SLICED BANANA 
100 & 

How to End an Edit Session 

Now that you've made all the necessary changes, it's time to get back to the 

READY 
> 

prompt. There are several ways to do it. The easiest way is simply to press 
(ENTER) . 

Go ahead and do it. Then type: 

LIST 100 

to see the corrected line: 

100 THE GREATEST INVENTION SINCE THE PRE-SLICED BANANA 
• . .which describes the Edit Mode quite well. 
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The three basic editing commands are: 
n CD for deleting a characters 

^ : "^.^wi<■rt■*^Ui«i*^ l ■■V1^»^i■■ capti'atoa ip*w»-^B.:^:«WBap»jtr«*ii/ , nio msertmoete* ^^ 

Project (Do It Yourself #7-1). Type in the following line exactly: 
10 PRINT "HI ! ! I 'M YOUR TRS-80 MICROCOMPUTER" : GOTO 100 

Then use the Edit Mode to change the line to this: 

10 PRINT: PRINT "HELLO, I'M YOUR TRS-80!": GOTO 10 



MOt 



. ..... ,.,..* ,.„..., ^*mtEg&msBs 

lPiill§ll 



0* Chapter Checkpoint #7 



1. If you left a letter out of a word, you may insert the letter in th e Edit Mode by 
pressing O followed by the letter. To stop inserting, you press ( J 

o. 

2. The TRS-80 automatically goes into the Edit Mode whenever it encounters a 
error. 

3. You can get rid of unwanted characters in the Edit Mode by typing in the 
number of characters to be deleted, then pressing O- 

4. TRS-80 will change a character in the Edit Mode when you: 

a. Type CHANGE 

b. Press QD followed by the new character 

c. Circle the incorrect character in red ink 
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(Extending a Line) 
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Advanced Editing 

As an introduction to the Edit Mode, we showed you just the bare essentials. 
Now that you've got the feel for this mode, you're ready for the really good stuff! 

Faster Cursor, Faster 

First type in this line, just to give us something to work on. 

100 PRINT "THE BETTER THE DATA THE DEADER THE BATTER" 

Now go into the Edit Mode: 

EDIT 100 

100S 



Suppose you want to move the cursor over 20 spaces. You could press (SPACEBAR) 
20 times. But there's a much faster way. Simply tell TRS-80 how many spaces to 
move over. Before pressing (SPACEBAR) , type in the number 20. Then press 
(SPACEBAR) : 

100 PRINT "THE BETTER THg 

The cursor skipped over 20 characters at once! 

You can skip backwards, too. With the cursor positioned as in the last listing, 
type in the number 19 and then press ©. 

100 P& 

Since you went forward 20 spaces and back 19, the net effect was to move 
forward one space. 
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Extending a Line 

Often you simply want to add to the end of a line or "extend" it. There's a special 
edit function for just this purpose. It's called the extend-line function, and you 
start it by pressing GD in the Edit Mode. 

The extend line function is exactly like the insert GD function, except that it lets 
you start inserting at the end of the line instead of at the current cursor position. 
Otherwise, everything we said about the insert function and the insert mode 
applies to the extend-line function. 

Back in an earlier chapter, we mentioned that a program line can contain up to 
255 characters — if you use the edit mode to cram in the last 15. As an illustra- 
tion of the extend-line function, we'll demonstrate this technique. 

In the immediate mode, type in a very long line. In fact, type until the TRS-80 
won't take any more! Maybe your line looks something like this: 

100 PRINT "THIS LINE WOULDN'T BE POSSIBLE WITHOUT THE EXTEND- 
LINE OR INSERT-CHARACTER FUNCTION OF THE EDIT-MODE* BECAUSE 
WHEN YOU TYPE IT IN* YOU CAN'T GET PAST THE 240TH CHARACTER* 
HOWEVER* WITH THE EDIT MODE* YOU CAN CRAM IN THE LAST 15 
CHARA8 

Now press (ENTER) . 

To get in an extra 15 characters, type: 

EDIT 100 

Now BASIC displays: 

100$ 
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Press GD and the Computer will display the entire line. Ours looks like this: 

100 PRINT "THIS LINE WOULDN'T BE POSSIBLE WITHOUT THE EXTEND- 
LINE OR INSERT-CHARACTER FUNCTION OF THE EDIT-MODE. BECAUSE 
WHEN YOU TYPE IT IN. YOU CAN'T GET PAST THE 240TH CHARACTER . 
HOWEVER i WITH THE EDIT MODE. YOU CAN CRAM IN THE LAST 15 
CHARA! 

The cursor is at the end of the line and you are ready to start inserting. Type in 
an additional 15 characters. Ours will look like this: 

100 PRINT "THIS LINE WOULDN'T BE POSSIBLE WITHOUT THE EXTEND- 
LINEOR INSERT-CHARACTER FUNCTION OF THE EDIT-MODE. BECAUSE 
WHEN YOU TYPE IT IN. YOU CAN'T GET PAST THE 240TH CHARACTER . 
HOWEVER . WITH THE EDIT MODE , YOU CAN CRAM IN THE LAST 15 CHAR- 
ACTERS. PRESTO! !i 
Now you're ready to leave the insert mode, so use the escape sequence: 

rsHim ® 

Press CD twice to list the line and start the cursor over at the beginning of the 
text. Then end the editing session. 



press (INTER) . Well, instead of using the escape sequ- 
ence to get out of the insert mode, you could have used 
the same method TRS-80 would return you to the 
- 3> w ith all your corrections in -*~' 




To insert text at the end of a line, use the extend function. To start 
oh this function, press (33/and then ty^tt^ext to be inserted. To 
escape from the insert mode, press (SHIFT) GD- 



Extend-line function is just like the insert function, excep] 



rend 



That's One Hack of an Editor! 

In another common situation, you want to eliminate the last portion of a line; 
you may also want to insert some new text at that point. The hack function 
(started with the QD key) serves both purposes. Like GD, the hack function puts 
you in the insert mode. 



85 



For example, type in the following line: 

100 PRINT "THIS MESSAGE IS OUT OF DATE" 

You want to change the message to: "THIS MESSAGE IS OUT OF THIS WORLD" 

The hack function takes effect at the current cursor position, so start editing the 
line, and position the cursor like this: 

100 PRINT "THIS MESSAGE IS OUT OF I 

since that's where you want to hack and insert. Now press GD. Nothing will 
happen on the Display, but the Computer has deleted the rest of the line, and is 
waiting for some new insert text. Type in the new text, until the display looks 
like this: 

100 PRINT "THIS MESSAGE IS OUT OF THIS UORLD" 



To stop inserting and end the edit session, press (ENTER) . 







Searching 

There's a still more impressive way to position the cursor. You simply tell the 
Computer to search for a specific character in the line; it will advance the cursor 
until it finds the next occurrence of the character or reaches the end'of the line. 

Here's the key sequence to search for a character: 



Keystroke 

(ID 
character 



Meaning 

"I want to search for a character." 
"Here's the character" 
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For example, type in this new line (press (J) after "THROW,"): 

100 PRINT "WHEN AJAX STRIVES SOME ROCK 'S VAST WEIGHT TO THROW , 
THE LINE TOO LABORS AND THE WORDS MOVE SLOW* (POPE) ' ' 

Now start editing the line (EDIT 100): 

100 i 

We want to position the cursor to the "V" in "VAST". So type GD QD and the 
Computer will display: 

100 PRINT "WHEN AJAX STRIi 

That's the first occurrence of "V". Type GDQD again to get the next one. The 
Computer will display: 

100 PRINT "WHEN AJAX STRIVES SOME ROCK 'S £ 

If you wanted to make a change now, you could (but we don't — who could 
improve on that line, anyway?). 

Searching for the Nth Character 

The search function normally finds the next occurrence of the specified charac- 
ter. But there's a way to skip over to the nth occurrence. You just type the 
number n before pressing (3D. For example, press CD to start a new working 
copy of line 100: 

100 PRINT "WHEN AJAX STRIVES SOME ROCK 'S VAST WEIGHT TO THROW * 

THE LINE TOO LABORS AND THE WORDS MOVE SLOW, (POPE)" 
100 £ 

Now type: (T) and then (T) then CD which means "find the second occurrence of 
"V". The Computer will display: 

100 PRINT "WHEN AJAX STRIVES SOME ROCK 'S £ 
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in a line, and position the cursor to 
ied3 function. The general form is: 



" is the character you are searching for, and n tells trs-bo to 
i< . : - ._^j «... computer will find the next occurrence of 



find the nth occurrence of c. If n is omitted, the Computer will fii 



■--^^—-'^B before finding the /rth occurrence of c, it positions the 






ilpiillllllliiliiiilll 



ig the current cursor position. 
Therefore, if the cursor is positioned on character c, and yo* 

Search and Destroy (Kill) 

When you want to save the first part of a line and get rid of the last part, you use 
the hack function. But what about the opposite situation: you want to delete 
everything up to a certain point in the line, and save the rest. 

The kill function does it. You simply press GD followed by the first character to 
be saved. For example, type in this line: 

100 CLS: INPUT "PRESS ANY KEY" 5 X 
100 i 

We want to get rid of "CLS: ". Start editing the line (EDIT 100). 

100 & 

We want to kill everything up to the letter I. So type: 

CDCD 

BASIC will display the deleted text inside exclamation marks: 

100ICLS: ! % 
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I Notice that TRS-80 also positions the cursor on the letter I. Now press CD once to 
I list the remainder of the line; press CD again to list the line in its latest form: 

. 100 INPUT "PRESS ANY KEY" i X 
100 i 

Press (ENTER] to stop editing. 

j You can tell Kill to delete everything up to the nth occurrence of a character, as 
1 well (remember how this works with the search function?). Type in this line, and 
start editing it: 

I 100 PRINT "LINE 1": PRINT "LINE 2" : PRINT "LINE 3" 
EDIT 100 

J Let's delete everything up to the third PRINT statement. If Kill is like search, 
> we'd use something like this: 

| CECBCE 

* Go ahead and try it. . . 

t Whoa!! Everything's wiped out! 

J 100 ! PRINT "LINE 1": PRINT LINE 2": PRINT LINE 3" ! _ 

j Remember how search starts looking after the current character? Kill works the 
j same way. It was sitting on the first P; so it didn't count this one. You told it to 

find the third P and kill everything in front of it. It never found a third P. For this 

reason, it deleted everything up to the end of the line. 

j Press (ENIER) to stop editing, then retype line 100, and start editing it again: 

100 PRINT "LINE 1": PRINT "LINE 2": PRINT "LINE 3" 
EDIT 100 
J 100 I 

Since the cursor is sitting on the first P, it won't be counted when it searches for 
the nth P. So you must tell the Computer to kill everything up to the second P, by 
typing: 

j (ZXBCD 

The Computer will display: 

) 100 ! PRINT "LINE 1" : PRINT LINE 2" : ! 



Now press (ENTER) to end editing. List the line: 

100 PRINT "LINE 3" 
is all that's left. 




The Kill function deli 

specified character. If the character is not 

deleted. The form for the kill function is: 




urrence of a 
, the entire line is \ 



where c is the first character to be saved (everything in front of it will be deleted), and n 
tells TRS-80 to find the nth occurrence of c. If n is omitted, the Computer looks for the first 
occurrence of c, after the current cursor position. If there is no nth o ccurrence of c, the 
Computer deletes the entire Urieafter the cursor. If you press (MM instead of c, trs-80 



Starting Over Again 

Remember the example where you killed the entire line, instead of just the first 
two statements? TRS-80 expects you to make some mistakes, and therefore 
provides a means of recovering from them. It's called the restart function; to use 
it press CD- 
Restart cancels all changes you've made since starting the Edit Mode, and starts 
a new working copy of the line. Try the kill-function example again, but this 
time, press CD for "Again" after you mistakenly delete the entire line. Then 
press CD twice to see the restored line. 

Press (ENTER) to leave the Edit Mode. 

Note: Once you end an edit session by pressing (ENTER), the changes you have 
made go into effect. The only way to undo them is to re-type the line. 
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j function cancels all editing changes, n 
nal form/and positions the cursor at the " 
copy. To restore a line, press CD. 




Two More Ways to End an Edit Session 

Suppose you start editing a line, then suddenly realize you don't want to edit 
that line at all. You could press QD and then press (ENTER) . But there's a single 
function for this purpose. It's called the Quit function. To use it, press GD- AH 
editing changes you made will be canceled, and TRS-80 will put you in the READY 
mode. 

Remember our demonstration of the restore function? To try out the Quit 
function, follow the restore example. But when you're ready to cancel the 
changes, press CD instead of QD. 

A Special Use for the Quit Function: 

You know the Computer puts you into the Edit Mode when it encounters a 
syntax error. Usually this is desirable . . . might as well correct the error now, 
right? 

But, whenever you edit a program line, all variables are cleared (and so are a 
bunch of other information areas). Suppose a program had been churning away 
for 10 minutes before it reached the syntax error. You might want to examine 
some of the variables first, and correct the error later. In such a case, you should 
press QD as soon as TRS-80 starts editing the line. This will put you in the 
Immediate Mode with all variables intact so you can examine them with "?" 
(PRINT). 

End 

Pressing (ENTER) at any time ends the editing session. Pressing CD will do the 
same thing, except when you're in the insert mode (started with I, H, or X 
functions). 
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5? Chapter Checkpoint #8 

1. In the Edit Mode, you can skip the next 10 characters by pressing ( ) 

j n ) 

2, To Hack, or cut away the en d of the line, just pres s ( ) . You can then begin 
inserting characters. Press f K ) to return to the stop insert- 
ing characters. 



3. To add characters onto the en d of a line (extend it), press ( I To stop 
inserting, press ( ) ( - ) again. 

4. The key-sequence (3D GD QD tells trs-80 to: 

a. prepare Three Sandwiches Immediately 

b. delete the next three "Ts 

c. search for the third "F 

5. Can you show one of the three possible ways to end an edit session? 
92 
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A Precision Machine 

Up to now we've used numbers rather off-handedly, without stopping to think 
how the Computer works with them. At this rate, the old math muscle might 
just shrivel up and die from lack of use — we'll be depending on the computer for 
everything! 

For instance, in the program that printed out simple fractions, you didn't tell the 
Computer how many decimal places you wanted to see, or where to put the 
decimal point. To work out the fractions on paper, these are things you would 
have to consider. 




For those who don't 
wn/ft*a ft^ to <fe 



. For 


example 


, in working out the long-division problem 






i27.2 




u/ 


HOO.O 


i 




11 
30 
22 

80 
77 

30 
22 

8 



you have to decide how many decimal places to include in the answer. You can 
stop at 127.3 (rounding up the last digit), 127.2727, or you can fill up the line with 
repeating decimals: 127.272727272727272727272727272727272727272727272727. Or 
you may not be interested in the fractional part at all — in which case you can 
stop with 127. 
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But when you tell the Computer to 

PRINT 1400 / 11 

it will always produce the result: 

127.273 
which is accurate to six digits. 
How does TRS-80 know where to stop dividing? It's all a matter of precision. 

TRS-80 assumes that you're a fair-minded person — not one of those pin-headed, 
nose-to-the-grindstone people who wants that answer correct down to the last 
digit — even if it takes a lifetime to get it onto paper. 

On the other hand, it doesn't mistake you for one of the What — Me Worry? 
types who are happy if the answer is accurate to one or two decimal places. 

To give us this moderate degree of accuracy, your Computer uses what we call 
"single-precision" numbers. 




Sfngte-preoision means \ 
number with seven or fi 
precision value. All numeric 
precision unless you - 1 -—- J 



to seven slflnifiGarit digits. Any 

digits can be handled as a single- 
are assumed to be single- 
II show you how later in 




Ntite: When a single-precision number is PRiifred, only six digits or fewer are displayed. 
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For example, all the following numbers can be handled as single-precision: 

1 3.14159 1.234567 -38000000 0.00125 
since none has more than seven significant digits. 

You can verify this by RUNning the following program: 

10 INPUT "TYPE IN A NUMBER" ; X 

20 PRINT X; "IS STORED IN YOUR COMPUTER* " 

30 PRINT 

40 GOTO 10 

When the program asks you to, type in the single-precision numbers listed 
above. 

| Notice what happens to 1.234567. It gets rounded to six digits. 

That's because the PRINT statement does this rounding automatically — even 
* though the full seven digits are retained internally. 

i Did you try -38000000? Then you got the rather strange-looking message: 

-3*8E+07 IS STORED IN YOUR COMPUTER* 
i Similarly, typing in the number 0.00125 gives the message: 

1.25E-03 IS STORED IN YOUR COMPUTER* 

Here's where our concept of significant digits comes in handy. You see, your 
Computer is thrifty (and wise, too!) with its digits, especially when it comes to 
very small and very large numbers. In such cases, it only PRINTS out the 
significant digits, with a special notation telling you how many leading or 
trailing zeroes are left out. The -3.8E+07 means "move the decimal point over 
seven places to the right to get the true value." The symbol 1.25E-03 means 
"move the decimal point over three places to the left to get the true value." 

RUN the program and try typing in numbers in this format (we'll call it E-format 
from now on). For example, input these values: 
1.23E-3 1E5 -.10E8 1234567E-7 
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Exercise (Do It Yourself #9-1). 

Write these numbers in E-format: 
1 1234.56 1000.1 0.000123 



-300.0031 



Write these E-format numbers in ordinary format (we call it "floating decimal" 
since the decimal point moves around as necessary): 

1.1E1 8.7654321E8 1E6 3141593E-6 0.123456E6 

If you want to mimic the PRINT statement, don't print out more than six 
significant digits (round the least significant digit). 

Let's Get Our Data Together 

As a final demonstration of single-precision and E-format, we're going to write a 
program that prints out a pre-determined set of numbers. Instead of using a 
bunch of name-it and PRINT statements, like: 

X=l,2345 
PRINT X 
X=-I000,10 
PRINT X 

we're going to include all the data in a new type of statement called DATA. Then 
we're going to read these numbers with a new statement called READ. 
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RUN this program: 

NEW 

10 READ X 

20 PRINT X 

30 DATA 1*234567 

The READ statement takes a value from the DATA statement and stores it in X. It 
doesn't matter where the DATA statement is in the program — READ will always 
find it. The DATA statement by itself does nothing; its function is only fulfilled 
when a READ statement accesses it. 

The DATA statement becomes more useful when we make it store several values, 
and then READ the DATA repeatedly. Each time a READ is performed, the 
next value in the DATA list is used. 

Make these changes to the program: 

27 GOTO 10 

30 DATA 1 * 234567* 1000005, 1234 * 56 * 8000*10 

RUN it. You'll see the data printed out and then . . . 
?0D ERROR 

To prevent this from happening, we often put a special end of data or "EOD" 
marker at the end of the DATA list; before READing DATA, we check to see if the 
EOD has already been reached. 

Make these changes in the program: 

15 IF X = THEN PRINT "END OF DATA": END 

30 DATA 1*234567* 1000005* 1234*56 * 8000* 10,0 

Now RUN it. Line 15 tests for the EOD. If it hasn't been read yet, the program 
reads another value. 

Well be saying some more about READ and DATA later, but we've got enough 
information to make our demonstration of single-precision and E-format. So 
change line 30 in your program as follows: 

30 DATA 1*1E5* 12345E-5* 3141593E-6* -100*1001E3* 700*lE-3* 
1*234567* 1*234565* 1*234564* 

RUN the program and see how the Computer interprets and displays all those 
values. Notice the rounding in the last three values printed. 




lliat's -not an Over-Dose error^ not even an OveiSD^e 
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The Goldfish Problem: A Case History 

Despite our remarks about nose-to-the-grindstone and What-Me-Worry types, 
there are times when you: 

a) Need more than seven digits, or 

b) Need whole-number answers only. 

The Goldfish Problem illustrates both situations. 

Suppose you are studying the Goldfish Problem mentioned in Chapter 4. You 
want to compute the size of the Average American Goldfish Family (AAGF). This 
number will be used by the U.S. Department of GHEW (pronounced "few") for 
determining how much money goes to goldfish programs. 

Out of 250,000 qualifying goldfish families nationwide, GHEW has surveyed 25, 
and come up with the following data. Each number gives the size of one of the 
families surveyed: 
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13* 17* IS* 11* 50* 12* 18* 10*2* 23* 
33* 81 * 77* BG * 32* lit 19* 18* 33* 1 * 
25* IB* 14* 13* 33 

We are going to need this data in the program that solves the goldfish problem, 
so we need to store it in . . . DATA statements, of course. Go ahead and type in the 
following program lines (First erase any old program from your Computer): 

100 DATA 13* 17* 18* 11* 50* 12* 18* 10*2* 23 
110 DATA 33* 81 * 77* SB* 32* 11 , 18, 18* 33* 1 
120 DATA 25* IS* 14 * 13* 33* -1 

Now we need to write a program that: 

1. Reads and adds together all the data to get a total (we'll store the total in 
variable TTL). 

2. Computes the average size family, using the formula: 
AVG-TTL/25 



Add these lines to the program: 



130 TTL = 

140 READ GF 

150 IF GF = -1 THEN 180 

1S0 TTL=TTL+GF 

170 GOTO 140 

180 AVG=TTL / 25 

180 PRINT "THE AVERAGE FAMILY CONTAINS 1 



f AYG5 "GOLDFISH" 



Read through the program and try to determine what's going on. We're using 
our new statements, READ and DATA. 

Notice the program repeats lines 140-170 until the last item (-1) is READ. As each 
item is read, it is added into the variable TTL, which keeps a running total of all 
the data. 

When the last item is read, the program breaks out of the loop (line 150) and 
transfers to line 180. Line 180 computes the average by dividing the total by the 
number of items counted. Line 190 prints out the results. 

Now RUN the program. 

THE AVERAGE FAMILY CONTAINS 25,84 GOLDFISH 



~~ ' ejhe HLacfded after fl^ last II 












.&. For example, TTL 

£ variable as far as the ~ 



earned. 

2. You cannot use one of BASIC'S reserved w^Mkm 
side a variable name. For example, TOTAL cannot 
be used as a variable name, since it contains 

the Appendix. 
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Sounds like a government study, doesn't it? Sure feel sorry for that fraction of a 
goldfish. GHEW just might have to set up a commission to study that problem . . . 

Wait — there is a simple, painless way to eliminate it (the problem, not the fish). 
It's called a Software Solution. 

Add a % after every variable name in the program. (Don't ask why, just do it!) 
You will have to change lines 130, 140, 150, 160, 180 and 190 as follows: 

130 TTL%=0 

140 READ GF% 

150 IF GFZ=-1 THEN 180 

160 TTL%=TTLX+GFX 

170 GOTO 140 

180 AVG%=TTLX / 25 

190 PRINT "THE AVERAGE FAMILY CONTAINS" 5 AUG! 5 "GOLDFISH" 

Now RUN it again. 

THE AVERAGE FAMILY CONTAINS 25 GOLDFISH, 

That's better! Now what were those % signs for? 

Remember The Almighty $? It changes an ordinary variable into a string 
variable. Well, % performs a similar function — it changes the nature of the 
variable. 

Just to give you some more ideas about %, type in the following lines in the 
immediate mode (don't change the program that's in memory): 

AZ=l*33fl 

B%=100.000i 

CX = -1*5 

D%=-300*1 

PRINT "THE NUMBERS ARE STORED AS" 5 AX t BX t CX t 0% 

So, 1.334 gets stored as l; 100.001 as 100; -1.5 as -2; and -300.1 as -301. 

See the pattern? The positive numbers have their fractional portions chopped 
off, returning only whole numbers . . . but what about the negative numbers? 
Hmmm. 
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A%, B%, C%, and D% are all integer variables. They are completely separate from 
the single-precision variables A, B, C and D. 

Program (Do It Yourself #9-2). Our solution to the problem of the fractional 
goldfish isn't really statistically correct. In effect, we "rounded" all our fraction- 
al values down. We should have rounded them to the nearest integer value, e.g., 
26.4 rounds to 26, while 26.5 rounds to 27. This latter procedure is known as "4/5 
rounding." 

There's a neat trick to accomplish 4/5 rounding. Before chopping off the fraction- 
al part of a positive number, we add .5 to it. Watch this: 

26.4+.5=26.9 which converts to integer 26 
26.5+.5=27.0 which converts to integer 27 

Can you think of a way to change line 180 in the program so that we accomplish 
4/5 rounding? 

Compare your answer with ours in Appendix A. 

GOLDREC and CLEPOBO 

Now that we've computed the size of the AAGF, we can use this information to see 
how much money goes to two very important goldfish programs. 

GHEW will place $1.01 annually in the Goldfish Recreational (GOLDREC) Fund, 
and $1.000000098765 in the Clean Ponds and Bowls (CLEPOBO) Fund for each 
goldfish in the land. 
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We need to add steps to the Goldfish program to accomplish the following: 

1. Multiply the size of the average family by the number of qualifying families 
(250,000) to get the total goldfish population: 

POP=AVG*250000 

2. Multiply the total population by 1.01 to get GHEW's annual contribution to 
GOLDREC: 

GOLDREC=POP*1.01 

3. Multiply the total population by 1.000000098765 to get GHEW's annual con- 
tribution to CLEPOBO: 

CLEPOBO=POP*1.000000098765 

Add these lines to the program: 

182 POP*AMGZ*250000 

184 GOLDREC=POP*1»01 

186 CLEP0B0*P0P*1 ♦000000088765 

200 PRINT "THE ESTIMATED GOLDFISH POPULATION IS" 5 POP 

210 PRINT "THE ANNUAL ALLOCATION TO GOLDREC IS $" 5 GOLDREC 

220 PRINT "THE ANNUAL ALLOCATION TO CLEPOBO IS $" 5 CLEPOBO 

Now RUN it. 

THE ESTIMATED GOLDFISH POPULATION IS 6»25£+06 
THE ANNUAL ALLOCATION TO GOLDREC IS $S*3215E+0S 
THE ANNUAL ALLOCATION TO CLEPOBO IS $6*25E+06 

Now that you can read exponential format, you realize that $6.3215 million goes 
to GOLDREC, and $6.25 million to CLEPOBO. We should have some very happy 
goldfish . . . 
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A Question of 620 

One upstart goldfish in an Eastern goldfish school is upset. He figures that with 
an estimated goldfish population of 6.25 million, and a CLEPOBO budget of $6.25 
million, that's exactly $1.00 for each goldfish in the land. But the CLEPOBO grant 
allows $1.000000098765 for each goldfish. Taking a pointed shell in his mouth, he 
begins scratching away on the sandy floor of his pond. The work is arduous, but 
as he nears the end of the problem, his eyes begin to gleam with a sharklike 
ferocity. Here's what he finds out: 




QQQQQ0QQBQQQ 

QQ 9 QOQQQQQaQ 
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Rounding up to the nearest penny, he confirms his suspicions — the amount 
budgeted for CLEPOBO is short by 62 cents! A whole year's tuition at the Goldfish 
School of Rodeo in West Texas! 

Our upstart goldfish brought the matter to the attention of the CLEPOBO author- 
ities, and they puzzled over his calculations all day long . . . 

The Heart of the Problem 

Remember that single-precision numbers can hold only seven significant digits; 
extra digits are simply ignored. Now look at line 186: 

186 CLEP0B0 = P0P*1 ♦00000098765 
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CLEPOBO is a single-precision variable, but we are asking it to store the product 
of POP* 1.000000098765. The constant contains 13 significant digits, and the pro- 
duct is bound to contain even more than that. But CLEPOBO can only hold the 
seven most significant digits of this product. 

GHEW is simply going to have to revise the fudge-factor for the CLEPOBO budget 
to a single-precision number. What a lot of red tape that will require . . . unless 
we can come up with more precision in our program. 

Let's try a little experimentation in the immediate mode. Type: 

PRINT 6250000*1 ,000000098785 
The Computer will display the result: 

6250000*61728125 
which looks awfully similar to what our upstart goldfish got. 

But how did the computer give us all those digits? The answer contains no fewer 
than 15 of them. (No wonder the 62 cents got lost!) 

It's going to take a few pages to explain, but for now, think of it this way: The 
immediate PRINT didn't involve storing values in single-precision variables. So 
TRS-80 didn't have to follow the limitations of single-precision variables ... so we 
got a lot more precision in our answer. . .for a fuller explanation, read on! 

A Software Solution (Again) 

Change lines 186 and 220, by adding "#" to the end of the variable name CLEPOBO: 

18G CLEP0B0#=P0P*1 ♦000000098785 

220 PRINT "THE ANNUAL ALLOCATION TO CLEPOBO IS $" 5 CLEPOBO* 

Now RUN the program. 

THE ANNUAL ALLOCATION TO CLEPOBO IS $6250000*81728125 

Which solves the Goldfish Problem, and ends our case study. (Man and fish 
working together. . .for a better world.) 

Now, what was that # all about? 
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1 vJjM^W Adding # at the end of a variable changes ft from single-precision to 
,/&)$& cj double-precision. It can then store up to Gon- 

'xoosj^' stants with e,flht 0f more di0its m a,se4reat0<1 Wouhle-precision. 
^^^^ Note: When the Computer prints a double-precision value, it dis- 
plays a maximum of 16 digits. The mh digit is used for rounding purposes. 



For example, all of the following are double-precision variables: 
CLEPOBO# Al# PI# Zl# L# ZZZZ# 

To further investigate integer, single-precision and double-precision, RUN this 
program: 

NEN 

10 INPUT "TYPE IN A NUMBER" ? )<# 

20 X = X# 

30 IF >(#<-327G8 OR X#>=327G8 THEN >a = 0: GOTO 50 

40 XX«X# 

50 PRINT "INTEGER" t "SINGLE- PREC" > " DOUBLE- PREC ♦ " 

G0 PRINT XI t X t X# 

When the program asks you to, try typing in these numbers: 

i2345,G7890i2345S7 

-300*GGGGGGS 

1 ♦SGGSGGGGGG8G6GGG (16 sixes) 

9999999999939930 (16 nines) 

10000000000000000 (16 zeroes) 

♦ 01 

♦ 009 

Did you try entering 10000000000000000? Then you got a number in what looks 
like E-format, with one Difference: 

DOUBLE-PREC* 
1D+1G 






Remember, only the first two characters of any vari- 
able name are used by the Computer — CLEPOBO# is 
the same double-precision variable as CL#. 



Notice line 30. It's there to make sure you don't try to 
assign a number to integer variable X% which is too 
large in either ''direction" (positive or negative) to be 
stored in an integer. Remember, integer variables can 
only represent numbers between -32768 and 32767. 
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Similarly, when you type in 0.009, you see: 

DOUBLE-PREC. 
9D-03 

Now try turning the tables and typing in these values as INPUT to the program: 
123456789D-9 300.1D10 .33D1 




toooOTOCK)ooo(]pO0 or smaller than o.ot are printed out in double- 
precision exponential format to-format): 



x.yyMWW¥Yyyyv& 



- than -.01 are handled the same way. 



$0gat^e#^ 
and the rest of to ^ 

o z? stands for the number: ; 



Another way of looking atit is: for positiviezz, move the 
decimal point to the right zz places; for negative zz, 
move the decimal point to the left zz places. 



A Double-Precision Curve Ball 

Now that you've got your math muscle back in shape, how about flexing it just a 
bit? 

Program (Do It Yourself #9-3)- Write a program that: 

1) Stores the fraction 1/3 in a double-precision variable 

2) Multiples it by 3 

3) Prints out the answer in all its double-precision glory. 



Check it over and then RUN it. 

So you always thought 1/3*3=1, not 1.000000028902322! Well, you learn something 
new every minute with a computer. 







If a) is true, go back and try it again using double- 
precision (#) variables. If b) is true, go back and try it 
again — not so clever this time! After all, how can you 
learn from your mistakes if you don't 3 
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To see the accepted answer and the Clever Sidestep, see the answers in the 
Appendix. 



J You Can't Squeeze Double-Precision 
Out of a Single-Precision Number 

I When the Computer executes the line 

A#=l/3 

] it first computes the result of 1/3, and then stores the result in A#. But, in 
1 dividing 1 by 3, it doesn't know you want it to store the result in a double- 
precision variable. It assumes you are only interested in a single-precision 
I result. Therefore it computes 1/3 accurate to seven digits only. When this value 
' is placed in A#, the extra precision (10 more digits) consists of. . .numeric 
garbage! 

] Just to make the situation look even worse (so our solution will look that much 
better), type in these immediate lines: 

] A#=l»9 

j A=1.9 

PRINT A# t A 




#&*||&!!! That Double-Precision 

Erase the program in memory, and RUN this 
one: 



10 A»=i/3# 
20 B#=A#*3 
30 PRINT A#? "*3 = 



B# 



The Computer will display: 

♦333333333333*3=1 

This works because the # after 1/3 tells your Computer you want double- 
precision. 
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Try these lines: 

PRINT A# 



UFO #9-7. 

Adding # at the end of any number makes that number 
■'<$: precision. If any number in a +,-,*, or / operation \% double- 
j% precision, then the operation is done in double-precision, producing 
^^^^^^ a double-precision result Any constant with eight or more signWH 
cant digits Is also stored as ciouble-precision; 



For example, all of the following operations will produce double-precision re- 
sults: 



1#+3*14159 



-300»1#-1 li/i2# 



The results of these operations can be stored in double-precision variables with 
17 digits of accuracy. 

Program (Do It Yourself #9-4). Write out a program that continues printing 
out the sequence: 

5, 25, 125, 625, etc. 

Make the answers accurate to 17 significant digits. 

Check your answer against ours in the Appendix. 




Did the program stop with an OV error? Remember 
what that means? . ..Overflow. At a certain point in 
the calculations, the Computer attempted to generate 
a number that exceeded its limits for numbers. 

For single- and double-precision numbers, the value of 
the nuinber ^ 

-L7E38. (You can actually sneak in some more digits 
after the 1,7; for exan^lepi;7ilE38 can be stored withr 
dutanOV error. './'•'..' 

If the number gets very close to zero (between 
-17E-38 and +1 ;7E-38); it will be stored as zero. 
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H* Chapter Checklist #9 

1. If you can convert these to exponential form, TRS-80 will give you an E for 
Effort! 

a. -38000000 

b. 1111111 

2. Which of the following are single-precision constants? 

a. 3.14159 

b. 1.234567 

C. 1.1000000125 

3. Can you choose the incorrect DATA statement? 

a. DATA 1.34, 1005, .679 

b. DATA 1.34 1005 .679 

4. By adding "#" to a variable, you can change from single-precision to 
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A Medium-Sized Step Forward 



The last program uses repetitive multiplication to compute the terms in the 

series: 

5 1 5 2 5 3 5 4 5 5 

It works fine if you're interested in every term in the series, but is a roundabout 
way to get any particular term. For example, to compute 5 4 , you must multiply 
three times to get the answer. 

TRS-80 Has a Better Idea. . . 

See the QD key? Use it when you type in these lines: 

PRINT 5 " a 
PRINT 5 '" 11 

Program (Do It Yourself #10-1). Rewrite Do It Yourself #9-4 to print out 
same series, using the (£ symbol. 

Compare your answer with ours in the Appendix. 

Notice anything different in the output? (Look at the terms greater than 999,999. 
Hmmm. Repetitive multiplication isn't obsolete after all! 



be the same. 



is displayed. The function will 



The numbers greater than 999,999 now appear in E- 
format, with only the six most significant digits dis- 
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The 4 operator indicates exponentiation— raising one number to 
another power. The general form is: 

. ., .' * * y : 
The result of exponentiation Is always single-precision, even if one or both of the 



Nth Roots and Other Strangers 

You know how to compute the result of 
5 11 , 5 8 , 5 5 

To generalize, you can compute 5". But what about- the square root of 5? 10th 
root? nth root? How do you compute them? 

Suppose we're designing a cube-shaped goldfish bowl (what else?) to meet GHEW 
requirements that for every goldfish, 371.08 cubic inches (6080.9 cubic centi- 
meters) of water are necessary. 

We have 10 fish, so we'll need 3710.8 cubic inches (60809 cubic centimeters) of 
water. So what should the dimensions of our bowl be? Here's a plan for the bowl: 




The absolute value of a number is its magnitude with- 
out regard to whether it's negative or positive. For 
non-negative x, the absolute value of x equals x. For 
negative x, the absolute value of x equals -l*x. 

The last program? You remember— Do It Yourself #9- 
4 where you had TR&80 continue to print out the sequ- 
ence: 
5,25,125,625... 
[ to 17 significant digits. 

Note for Model III Users. Remember that your (J) 
will display a ( (left bracket) but still functions like an 
up-arrow. 



The nth root of 5 is the number which, when multiplied 
times itself n times, produces the result 5. In other 
words, if 



then 

x* =.5 




For example, 




2 




X/v£~ = 4 




and4 2 - 16 


(III 
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The formula for the volume of such a container is: 

V= height * width * depth 
or to be more official, 

V = h* w* d 

} Since all sides h, w and d are equal in a cube, we can rewrite our formula like 
| this: 

V = h* h* h = h 3 

j This looks like a case for nth (actually cube) roots! 

] K/V=h 

Program (Do It Yourself #10-2). Solve the goldfish cube problem by trial and 
1 error. Determine the dimensions of the smallest container that will hold enough 

water for our goldfish: 

a) To within 1 inch or 1 centimeter. 
] b) To within 1/4 inch or .25 centimeter. 



I 



Did you remember to allow a little extra space (for the goldfish)? 
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Back from the Shadows 

Well, it's time to dust off the old exponentiation operator. (No — it can't return 
double-precision, but GHEW specifications are always single-precision.) 

Think back to that dusty chalkboard on which your childhood monsters came to 
life as algebraic formulas and equations. Remember this one? 



For example, 



= V 



V 



27 



27 



1/3 



Got any ideas? Now write a one-line program that positively leaps to the 
answer. Check your answer by raising it to the third power (cubing it). 

The cubed result should be 371.08 inches or 6080.9 centimeters. Does your answer 
check out? If it does, you pulled another clever one. If it's not — you're about to 
learn an important fact of life: 

Purple Elephants Make Double Agents Snicker, or 
Parentheses Even Make Difficult Arithmetic Simple 
(PEMDAS) 

There are two operations in the expression 

371 ♦ 08 - 1/3 

exponentiation and division. How does the computer decide which to do first? If 
it does exponentiation first, the calculation will be 371.08 ♦ 1, and this result 
will be divided by 3. 




iCbr^N 



Hint: Plug the volume (371.08 in 
centimeters) and the number of sides 
tion (substitute lor V and n). 

PRINT 371.08 > 1/3 



$ or 6080.9 cubic 
(a)intotheequa- 
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If it divides first, the first calculation will be 1/3, and this result will become the 
exponent for 371.08. Which comes first, ♦ or /? 

Back to the Laboratory, Igor! 

Exercise (Do It Yourself #10-3). Find out the sequence in which all the 
arithmetic operators (+ - * / and ♦ ) are done. Find out if it matters which 
operation comes first in the line. Write down a pecking order, or "hierarchy" as 
its called in mathematics. 

Write down the hierarchy here: 




, : .'; I always 



is were reactionaries 



Now how do you get the result you want? Here's an indirect solution: 



A = i/3 

PRINT 371*08 



A 



Here's a shorter way: 

PRINT 321 .08 " ( 1/3) 




When TRS-8G evaluates expressions involving two or more opera- 
tions, it uses the following hierarchy: 
1. Operations within the same level of parenthesis are evaluated 

2. Within a given level of parentheses, operations are performed in this order: 

-f and ^ l J::'^ : li^!rUfMMli^ 

3. if * and / are used in the same level of parenthesis; whichever corifes fff^jsi^ft^^ 
Thesame is true of ■+ and ■-'.'<. "Mfm 
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Program (Do It Yourself #10-4), Add parentheses to make this line print out a 
value of 7776. 



PRINT G 



a / 3 + 2 - i 



Modern Living with Square Roots and 
Natural Logs 

You know how to get the rath root of any number. It always takes two operands 
(thex and- in our UFO #10-1 example). But for those ever-popular square 
roots, TRS-80 has an easier way. It's called a built-in function. Try this program. 

10 INPUT "ENTER A NUMBER" 5 N 

20 PRINT "THE SQUARE ROOT IS" 5 SOR(N) 

30 GOTO 10 

Whistlestop Tour (Do It Yourself #10-5). Replace line 20 in the above prog- 
ram with each of the following lines (one at a time), and observe the results: 

20 PRINT "THE NATURAL LOG IS" 5 LOG(N) 
20 PRINT "THE SIGN-COMPONENT IS" 5 SGN(N) 
20 PRINT "THE ABSOLUTE VALUE IS" S ABS(N) 
20 PRINT "THE LARGEST NHOLE NUMBER IS" 5 INT(N) 
20 PRINT "THE LARGEST INTEGER IS" 5 CINT(N) 
20 PRINT "THE WHOLE-NUMBER PORTION IS" 5 FIX(N) 
20 PRINT "THE SINE OF" 5 N* "DEGREES IS" 5 
SIN(N*i ♦745323E-2) 



a complete 
your TR&80 BASIC Eaii^agefeferenee Manual. Most ^ 
i will be introduced axid used ixi^ Allowing 






For these lines; try the Folio 

BSr-30O.l v 0, 300:1 

"": -3001,12344.5,65000.1 
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Don't #!%$ that Number — 
Declare It! 

Back in Chapter 4, we said there were five types of BASIC statements: 

• Input/Output 

• Name-it 

• Graphics 

• Program Sequence 

• Declare-it 

We've sampled every one of these except the last. Now that you're able to write 
programs using integers, single- and double-precision numbers, and strings, the 
declare-it statements will come in handy. 

When you want to change a variable from single-precision to another type, you 
already know you can add one of the symbols # (double), % (integer) or $ (string). 
These are called "type-declaration tags." 

With certain declare-it statements, you can define whole groups of variables as 
any of these data types. For example, the statement: 

DEFINT I 
tells TRS-80 that from now on, any variable starting with the letter I is automati- 
cally assumed to be integer, unless you add a #, $, or ! symbol at the end. Try this 
program: 

10 DEFINT I 

20 11=1 # 2345 

30 IH=33. 3333333333 

40 1 1 ! - 1 ,2345 

50 IH#=33*333333333 

G0 I=-5*5 

70 I$="THIS IS A STRING VALUE" 

80 PRINT II f IH * II ! t IH# t I t 1$ 

Notice that now TRS-80 assumes II, IH and I are integer variables, but that you 
can change this by adding the type declaration tags at the end of the variable 
name. 



Oh— we forgot to tellyou about U It's just like #, % and 
$, except it tells BASIC that the variably is single- 
precision You never need it unless you've defined a 
variable to be some other type; 



Why did I- -5.5 printout as -&.\] 

When a negative number with a rr 
stored in an integer variable, the ri< 
number is used. 



Refer baek to UFO #9-4 for details 
are stored in integer variables; 




\ 
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There are three statements for changing the way trs-80 determines 

what type a given variable is. 

• defint ("define-integer") makes variables starting with the speck 

• defsng makes variables starting with the specified letter single-precision. 

• defdbl makes variables starting with the specified letter double-precision. 

• defstr makes variables starting with the specified letter string variables. 

The letters to be changed can be specified in a list, with a comma after every letter but the 
last; or in a range, with a hyphen between the first and last letter. For example: 

Adding a type declaration tag (#,!,%, $) always overrides the type assigned to a variable. 

Declare-it statements should always be placed at the beginning of the program, before 
values are assigned to the variable. 



The Old Shell Game 

Try this program: 

10 DEFINT As DEFDBL B: DEFSTR C 

20 A=1000: B =1.234567890123450: C="FIND ME! " 

30 DEFSNG A-C 

40 PRINT "A=" ? A 

50 PRINT "B=" * B 

G0 PRINT "C= H 5 C 

70 PRINT "NOW WHERE DID THE ORIGINAL DATA GO?" 



Now you see why DEF statements belong at the beginning of the program, before f 

values are assigned! 

Exercise (Do It Yourself #10-6). Figure out a way to print out the original 
contents of A, B, and C. (Hint: Type declaration tags always override the 
"assumed" type of a variable.) [ 
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0* Chapter Checkpoint #10 

1. With TRS-80's help, can you perform these math operations? 

a. square 73.2 

b. cube 16 

c. raise 43 to the 9th power 

2. Again with TRS-80's assistance, check your above answers. 

3. Which of the following is NOT a statement for changing the way BASIC decides 
what type a given variable is? 

a. DEFINT 

b. DEFISH 
C. DEFDBL 

d. DEFSTR 
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* CONTF&L.H? 
7 COUNTS 





122 



^&m 



: mm 



ft W$fm/KL—m--. 



mmssSM 



mm 



HI 



9km 






IB! 







HHRl8@ 



From Simple Loops Do Mighty Programs Grow . . . 

We humans generally abhor repetition, finding it boring, tedious, frustrating, 
and wasteful. Machines, of course, thrive on it, and Computers are no exception. 

When a Computer performs a sequence of operations over and over, we call this 
a loop. For example, type in this program. 

10 A=l 

20 PRINT 1/A 
30 A = A+1 
40 GOTO 20 

But wait — before we RUN it, let's introduce a special Computer command 
designed to trace the flow of a program, i.e., to show which line is being executed 
at any given moment. It's called TRON (short for "trace on"). Go ahead and type 
in this command: 

TRON 

Now RUN the endless loop program again. See how each time TRS-80 starts a new 
line, it prints out the line number inside the <>. 

Often in a program that's not working right, the trace will help you find out 
where it's going wrong. 

The trace will remai n on until you turn it off with TROFF (short for "trace off'). 
Simply press (BREAK) to stop the program, then type in the command: 

TROFF 
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There are three kinds of program loops: 

1. Endless loops 

2. Bail-out loops 

3. Controlled counter loops 

The simplest is the endless loop, in which a GOTO statement causes the loop to 
be executed over and over. Such loops are useful for continuous displays, as in: 

10 PRINT "I LIKE TO RUN" * 
20 PRINT 
30 GOTO 10 

Often we use a very tight endless loop, to make the Computer stick at one point 
in a program without returning to the READY mode: 

20 PRINT "PRESS <BREAK> TO GET CONTROL OF YOUR COMPUTER" 
30 GOTO 30 

The second kind of loop, bail-out, repeats itself until a certain condition is 
present or a test is passed. Once again, the looping is provided by a GOTO 
statement; the testing is done by an IF . . . THEN statement. Typically, you cannot 
tell in advance how many times such a loop will be executed before the "bail-out" 
occurs. 




■-;:<..■ : : ; i.'-< : :.- y--i\< y yy.;A y; : yy<-: • J :/- : - ; -/ fe i ; ; : v-: :\ : v yyy. •••« ..:, .,v'*:^ - : i ,-.•'•. ••.; : : :- ; : %.'y . ■'■;-yy.y.:}/Z:'i 
■■ : y. "?*:. ":/r.\ .m yy. :■ :£ : yhk - ; :; : • : yr-y y -y/ : y, f^X ^;yi \ :■ "I 0X ••••;: ^vk-v 
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10 A* = "I LIKE TO RUN" 

20 PRINT A* 

30 INPUT "DO YOU WANT TO QUIT (Y/N)" 5 R* 

40 IF Rt="Y" THEN END 

50 GOTO 20 
Notice that you can't predict how many times the loop will be executed, since 
that is determined by whoever is using the program. 

You'll find bail-out loops useful whenever you input data from the keyboard or 
from DATA statements. That way, the loop doesn't need to know in advance how 
much data is coming. In the goldfish population analysis program, we used a 
bail out loop similar to this one: 

5 K = 0: TTL = 

10 READ A 

20 IF A = -l THEN 50 

30 TTL = TTL + A: K=K + 1 

40 GOTO 10 

50 PRINT "TQTAL="; TTL , "AVERAGE*" i TTL/K 

60 DATA 23. 45 t 50. 30 ♦ 100 » 10 * -1 

RUN the program. 

Notice also that the program keeps track of how many items are read in; this 
count is stored in K. Each time another value (other than -l) is read in, K is 
increased by 1. 

Program (Do It Yourself #11-1). Write a program that: 

1. Accepts numbers from the keyboard until you type in a 999 

2. PRINTS out the total and the average of the numbers. 

Program (Do It Yourself #11-2). Use a controlled loop to find and print out the 
largest whole number n such that n*n*n is less than 1110. 

The last kind of loop, the Controlled Counter, is very useful when you know in 
advance how many times a loop needs to be repeated. Such loops feature a 
counter variable, an initial value, an increment, and a limit value. 







; : |HHiw|f j§ni could find such a number with a single 1 

;MynM%l^Si:the . f -operator. Try it. ; ; ::■■ - ; 
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At the beginning of the loop, the counter is set to its initial value. Each time the 
loop is executed, the counter variable is incremented and tested against the 
limit value. When the limit value is reached or exceeded, the program exits from 
the loop. 

GOTO and IF . . . THEN can be used to form a controlled counter loop: 

10 A=l 

20 PRINT 1/A 

30 A = A+i 

40 IF A=10 THEN END 

50 GOTO 20 

A is the counter variable; 1 is the starting value; 1 is the increment, and 10 is the 
limit value. The program repeats lines 20, 30 and 40 until A=10. 

By using negative increments ("decrements"), you can make the loop count 
down from a larger number to a smaller number, as in: 

10A=1000 

20 A=A-1 

30 PRINT A 

40 IF A = THEN END 

50 GOTO 20 

which counts down from 999 to 0. 

Or you can count by tens, tenths, or any other increment: 

10 A^0 

20 A=A+100 

30 PRINT A 

40 IF A=1000 THEN END 

50 GOTO 20 

which prints out the sequence 100, 200, . . , 1000. 

Programs (Do It Yourself #11-3, 11-4, and 11-5). Write programs using GOTO 
and IF . . . THEN to: 

11-3. Print all the even numbers from to 256 

11-4. Count from to 10 by tenths (use an increment of 0.1), printing out every 
counter value. 



Increment ~ that's Computet talk for "increase*. 
When we increment a variable, we add something (the 
increment) to it 

What if the increment is smaller than zero? We can call 
it a "negative increment'Va term that's popular with 
•some exnployers. (A "w&ge cnit'Vthu^ hecotoes a ^nega- 
tive inc^ments) 



crement^it. 



i -^e usually Mow 
[eprease a counter variable^ we ?de- 



the trace on 
that the last line executed is line 40. 
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11-5. Count from to 59 and then start over at zero . . . over and over, printing 
out every counter value. 

Automatic Controlled Counter Loops 

In controlled loops, we know in advance how many times each loop is to be 
executed. Now wouldn't it be nice if we could tell TRS-80 in advance how many 
times to perform a loop? Then we could skip the incrementing and testing steps, 
and let the Computer keep count. 

Well, your TRS-80 hasn't let you down yet, has it? So type in this program: 

NEW 

10 FOR SC = TO 59 
20 PRINT "SC=" 3 SC 
30 NEXT SC 

Before running the program, try reading through it. What do you think it will 

print? 

RUN it, then read through it again, this time with feeling! 

Here's another one: 

NEW 

10 PRINT "THIS WILL TAKE ABOUT 10 SECONDS ♦ . ." 

20 FOR T=l TO 3300 

30 NEXT T 

40 PRINT "THAT'S ALL" 

How about counting down? Try this: 

NEW 

10 FOR 1 = 100 TO STEP -1 

20 PRINT I f 

30 NEXT I 




Be sure to try it with; trace cm, too $R0N (IipBft 



If you try this one with trace on, it will take iniach 

longer than io seconds: That's because it has to do the 

extra worik : rfjj^tiijtg;^ those line nuinbers on the 

* display. ; ? : , \^\^j^-r''i^^.\\*\-' : '[.;-" --.i ■ ; ^Vr^i/^Vr^l^l^-^^ v. : ^ 2 

L^e;iui4:^fr<i^ in^t^ of 3300)- 
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l:viKi;W f Arm an "sntnmatip" ' ' : "V: 



•■•.-'•• ;:':'■•'! 



that together form an "automatic" 
■c *? z^y/; mmiMr=m$^m 16 limit value 

umcounter • ••■".•-:? 

comter is the numeric variable that holds the count L 
Mia/ value is the number where the counting starts. 

The increment for counting will be 1, unless an alternate form of for statement is used: 

for counteMnitial value to limit value tt? imremmt 

incrementtem number that will be added to confer each time the loop is repeated, When 
increment is less than zero , the loop counts down instead of upL 



Suppose we have the following program loop: 

FOR 1 = 1 TO 10 
NEXT I 

then here's a summary of how the loop is executed. 

1. The first time the Computer hits 

FOR counter = initial value TO limit value STEP increment, it sets counter equal 
to initial value. (1=1) 

2. Execution then proceeds until it reaches NEXT counter 

Each time NEXT is reached, the increment is added to the counter (I =1 + 1) 

counter is then compared with limit value. If it equals or exceeds limit value 
d> = 10 ) the loop ends and the program continues with the statement follow- 
ing NEXT. 

But if the counter has not yet reached limit value (K10), the program loops 
back to the first statement following FOR. 

Program (Do It Yourself #11-6, and 11-7). Revise D.LY.'s #11-3 and 11-4 to use 
FOR and NEXT instead of GOTO and IF. . . THEN. 

128 



Hey — There's a Nest in That Clock! 

Remember the program (D-I-Y #11-5) to count from to 59, and then start over? 
That one involved "nested loops" — one loop inside another one. Here's the same 
program, using a FOR/NEXT loop nested inside a GOTO loop. 

10 FOR SC = TO 59 
20 PRINT "SC=" 5 SC 

30 NEXT SC 
40 GOTO 10 

Lines 10, 20 and 30 form the nested loop; line 40 is executed once each time SC 
passes 59. 

RUN the program. It simply counts from to 59, over and over. That's what the 
second-hand on a stopwatch does. If only we could slow it down . . . 

Well, what's the easiest way to slow down a watch? Hold the second hand, of 
course. Well, the "second-hand" in this program is the counter variable SC. So 
how do you "hold" a counter variable? 




Hmmm. 

How about inserting a one-second (approximate) pause between lines 20 and 30? 
That way, the Computer won't increment SC until a second has passed. 

Try adding these lines: 

25 FOR K = l TO 330 
27 NEXT K 

Now the Computer will have to count from to 330 before going on to increment 
the seconds. That should slow it down a bit. 

RUN the program. If you have a watch with a second-hand, you can fine-tune the 
stopwatch program. If the seconds are ticking too fast, slow down the loop in line 
25 by using an upper limit larger than 330. If the seconds are ticking too slowly, 
speed up the loop by using an upper limit smaller than 330. 
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Here's a listing of the resident program: 

10 FOR SC = TO 53 
20 PRINT "SC= n 3 SC 
25 FOR K = l TO 80 
27 NEXT K 
30 NEXT SC 
40 GOTO 10 

Notice the program consists of a FOR/NEXT loop within a FOR/NEXT loop within a 
GOTO loop. Look closely at the sequence of the NEXT K and NEXT SC statements. 
Why does NEXT K come first? Well, because we want K to reach its final value 
before SC is incremented. 

It's essential that the innnermost loop be completely contained inside the 
middle loop. In other words, when you open one loop inside another loop, you 
must close the inner loop before closing the outer loop: 

Right! Wrong! 

10 FOR J=l TO 3 10 FOR J=i TO 3 

20 FOR J2=i TO 2 20 FOR J2=l TO 2 

30 NEXT J2 30 NEXT J 

40 NEXT J 40 NEXT J2 



RUN the "wrong" program; you'll get the error message, ?NF ERROR IN 40. NF is 
short for NEXT WITHOUT FOR. 

The Computer gave you this message because you closed the outer loop (the 
J-loop) before closing the inner (J2) loop. The Computer assumed you meant to 
close all inner loops at the same time. So when it reached line 40, the J2-loop was 
no longer open. 

Program (Do It Yourself #11-8). The stopwatch program only counts seconds. 
Add another controlled counter loop to make it count minutes, as well. When the 
minutes pass 59, reset them to zero. 
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Hint: Each time you have to reset the seconds, increment the minutes. You'll 
end up with an innermost FOR/NEXT loop, a middle FOR/NEXT loop, and an 
outermost GOTO loop: 

Seconds counter — innermost loop 

Minutes counter — middle loop 

Minutes reset to zero — outer loop 
Remember to close inner loops before outer loops! 

So now you've got a computerized Stopwatch . . . 

Roll Over, Big Ben 

The following program will make full use of nested loops to provide an hours : 
minutes : seconds "clock". 

10 INPUT "ENTER THE CURRENT HOUR" 5 HR 

20 INPUT "ENTER THE CURRENT MINUTE" 5 MN 

30 INPUT "ENTER THE CURRENT SECOND" i SC 

40 FOR HR = HR TO 12 

50 FOR MN = MN TO 59 

60 FOR SC = SC TO 59 

70 PRINT HR? " :" 5 MN 5 " : " 5 SC 

80 FOR T = TO 330 

90 NEXT T 

100 NEXT SC: SC = 

110 NEXT MN: MN = 

120 NEXT HR: HR=i 

130 GOTO 40 
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llllft inside a 



Program (Do It Yourself #11-9). Change the clock program so that it keeps 
"military time", i.e. uses a 24-hour clock cycle. 

Bad Idea (Do It Yourself #11-10). The very first program in this chapter 
showed an endless loop using GOTO. 

10 PRINT "I LIKE TO RUN" t 
20 PRINT 
30 GOTO 10 
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Make an endless loop using FOR/NEXT instead of GOTO. Ordinarily, this would be 
considered a "bug" in your program, but doing it will teach you something about 
how FOR/NEXT loops operate. 

Bad Idea (Do It Yourself #11-11). Here's another educational mistake. Re- 
member the bail-out program? 

10 A*="I LIKE TO RUN" 

20 PRINT A$ 

30 INPUT "00 YOU WANT TO QUIT (Y/N)" I. R* 

40 IF R$="Y" THEN END 

50 GOTO 20 

Suppose we write a FOR/NEXT version, by adding line 15 and changing line 50: 

15 FOR 1 = 1 TO 100 
50 NEXT I 

RUN the program. Type: 

Y(E8HB) 

when you're ready to quit. Seems to work fine, right? . . . Well, not exactly. You 
see, the loop never was properly ended. As far as the Computer is concerned, the 
loop hasn't yet been completed. It's waiting for another NEXT I statement so it 
can increment and loop again, until I reaches 100. 

What we have here is a "pending FOR/NEXT loop", and in a program, this can 
easily cause problems and confusion. For example, type in this immediate line: 

NEXT I 

You've given the Computer the NEXT I it was waiting for, and now you're back in 
the program at line 30! 

There is a way to "bail out" of a FOR/NEXT loop without leaving a pending loop. 
When you're ready to bail out, simply set the counter equal to the limit value, 
and go directly to the NEXT statement, that way, you exit the loop naturally and 
prematurely. For example, change line 40 in the resident program: 

40 IF R*= M Y" THEN 1 = 100 
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Now RUN it, type Y (ENTER) to quit, then in the immediate mode test the 
Computer by typing: 

NEXT I 

You should get the message: 

?NF ERROR 




p® iti -3. 

tn general, you 



only use for/next loops 
counter functions. For endless loops, use goto; 



Insist on bailing out of a for/next loop, do it t 
and executing the next statement normally. 



ting the counter 










0* Chapter Checkpoint #11 

1. See if you can match the correct statement with the proper program loop. 



LOOP 

a. Endless 

b. Bail-out 

c. Controlled Counter 



STATEMENT 

1. FOR/NEXT 

2. GOTO 

3. IF... THEN 



2. TRS-80 will help you trace a program's flow if you use the command 



3. An. 



loop will be executed over and over until you press (BREAK) . 
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LOOP 
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Automatic Transmission with Power Steering 

You now have the basic mechanism for running a program through nested 
loops, unconditional and conditional branches, dry creek beds, and performing 
many other stunts. 

But good old TRS-80 has some additional features related to program sequence. 
Call them luxuries, creature comforts, or whatever. You'll find they make 
programming simpler by reducing the number of statements required for a 
given task. 

We're going to cover them quickly in this Chapter, and then put them to use 
later. 



IF. . . THEN. . . ELSE 

You can add the word, ELSE, to IF test THEN action. This will allow a single 
program line to handle both cases — when the test passes and when it fails. 



For example, this three-line program: 



10 INPUT "ENTER TNO NUMBERS" 5 A* B 
20 IF A<B THEN PRINT A5 " < = " 5 B s END 



can be compressed into two lines using ELSE. DELETE line 30 and CHANGE line 20: 



Here's how TRS-80 interprets line 20: 

"If A is less than or equal to B then PRINT A <= B; 

Otherwise (ELSE) PRINT B< A." 
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tesf is a relational expression like 

alternate action is another statement or line number. 

If the test is true, TRS-eo performs the action and then drops down to the n^rt line in the 
program. If the test is false, your Computer skips over to alternate action and performs It. 



action 



awe 



alternate actiofi 



The alternate action can be any BASIC statement — even another IF. . . THEN. . . 
ELSE statement. For example: 

10 INPUT "ENTER TWO NUMBERS" 5 A* B 

20 IF A < B THEN PRINT A? "<" 5 B: STOP: ELSE IF B < A THEN PRINT B5 

"<" 5 A: STOP 
30 PRINT A? " = " ? B 

Translate the new line 20 this way: "If A is less than B then PRINT A<B and stop; 
but if B is less than A then PRINT B<A and stop. If neither test passes, then go on 
to the next line." 
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Multiple Branches 

Consider a program that starts out like this: 

10 PRINT "TYPE 1 FOR SALES REPORT" 
20 PRINT "TYPE 2 FOR P & L STATEMENT" 
30 PRINT "TYPE 3 FOR A PAYROLL LISTING" 
40 INPUT C 

After you type in a value for C, the program must find out which option you 
selected. These lines would work: 

50 IF C = I THEN 1000 

60 IF C = 2 THEN 2000 

70 IF 03 THEN 3000 

80 GOTO 10 

1000 PRINT "SALES REPORT * . ♦ " : END 

2000 PRINT "P & L STATEMENT ♦ ♦ ,": END 

3000 PRINT "PAYROLL LISTING ♦ ♦ ♦ " : END 



RUN the program. Under what conditions will line 80 be executed? What would 
happen if you omitted line 80? Try it. 

Now DELETE lines 50-70, and type in this one: 

50 ON C GOTO 1000 t 2000 » 3000 
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^ ufo #12^2. : v-. : V : ;:;.- 

Y on., goto is a multi-way branch statement, allowing you to branch 
^ to one of several line numbers, depending ;on the test value. Its 
general form is: 



e goto live number list test value is z humeric variable or expression ' 
value is between frand^ 

If test value equals 1 ,trs-80 branches to the first number in the line number list; if test 
value equals 2, the Computer branches to the second line number in the list, etc. 

latest value equals zero or exceeds the number of elements in the list, control falls through 
to the next Itein the program. 



*3 £ GOTO lint- rtf 3 



rl /♦GOTO fine-ref I 



n f GOTO line- rcf n 



OH tt*t value 60TO 7^ 

* * *r > the mimfccf of 'lint- r«f$-y 




<t-fth < 







GOTO next line 



Routines and Subroutines 

Both these terms refer to sequences of instructions which perform a fairly 
specific function for a main program. They differ in how they are entered and in 
what happens when they are completed. 

Routines are accessed by branch-type statements. For example: 

IF A<B THEN 100 ELSE 200 
can access routines starting at 100 or 200. 
ON A GOTO 1000 t 2000 * 3000 



Actually, the '^routine" is just a programming concept 
created to help you organize programs better. We are 
using the term for the sake of contrast with sub- 
routines. The "subroutine" in BASIC is more than a 
concept; it refers to a specific set of BASIC statements. 
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can access routines starting at 1000, 2000 and 3000. 

At the end of a routine, we place another branch instruction to get back to the 
main program or to some other routine. For example: 

10 PRINT "TYPE 1 FOR SALES REPORT 

20 PRINT "TYPE 2 FOR P & L STATEMENT 

30 PRINT "TYPE 3 FOR A PAYROLL LISTING 

40 INPUT C 

50 ON C GOTO 1000 t 2000 t 3000 

80 GOTO 10 

1000 PRINT "SALES REPORT ♦ * , " : GOTO 10 

2000 PRINT "P & L STATEMENT * ♦ ♦": GOTO 10 

3000 PRINT "PAYROLL LISTING ♦ ♦ ♦ " ; GOTO 10 

Lines 10-80 constitute the main program; routines are at lines 1000, 2000 and 3000. 
Here's an illustration of how routines work: 



<Z 



10 REA...MAIN 

20... 

30 GOTO 100 

40... 

50 GOTO 200 

60... 

70 GOTO 300 



GOTO 



GOTO 



GOTO 



G 


T 




100... 

* 
* 

120 GOTO 300 



V 200... 



"X. 



220 GOTO 100 



a 



300... 



300 GOTO 100 



G 


T 
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Subroutines are accessed exclusively by a special BASIC statement, GOSUB. They 
differ from routines in that they always end with a RETURN statement, which 
transfers control to the statement following the GOSUB. 

Try this program: 

NEW 

10 PRINT "SUBROUTINE DEMONSTRATION" 

20 S = 

30 GOSUB 1000 

40 S=S+1 

50 PRINT "SECONDS=" \ S 

60 GOTO 30 

1000 PRINT "EXECUTING DELAY SUBROUTINE ♦ ♦ ♦ " 

1010 FOR 1 = 1 TO 330 

1020 NEXT I 

1030 RETURN 



Lines 10-60 form the main program; lines 1000-1030 form the subroutine. 



^v : -: 
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i/--A*d UFO #12-3. 

K* jL4— -. gosub transfers control to a subroutine; return ewis; A subroutine; 
o| and returns control the statement following the GOfplSl 

Two very important rules about subroutines: 6^ &1 

1. Use end statements or goto statements directly ahead of the subroutinMb^lirethat 
basic can enter the subroutine only via a gosub. 

2. Every subroutine must end with a return. 







Here's an illustration of a main-program/subroutine structured 






10... 

20 GOSUB 100 

30.:... 

40 605UB 200 
50.... 

hOOOSm 300 
10 



60506 



RETURN 






WOMTURM w 




m 






GOSUB 



RETURN 



GOSUB 



'""Hf * mm * b? ■"*"** 



RETURN 










II 1 






When the subroutine ends, it always returns control to the statement following the GOSUB; - 
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Multiway Subroutine Calls 

Remember ON. . . GOTO? Quite a powerful little statement, once you understand 
it. It allows us to branch to any of several routines, depending on a test value. 

The ON. . . GOSUB statement is very similar. It lets us call any of several sub- 
routines, depending on a test value. 

Try this program: 

NEW 

10 PRINT "TYPE 1 FOR SQUARE ROOT TABLE" 

20 PRINT "TYPE 2 FOR CUBE ROOT TABLE" 

30 PRINT "TYPE 3 FOR FOURTH ROOT TABLE" 

40 INPUT C 

50 ON C GOSUB 100 * 200 t 300 

G0 GOTO 10 

100 FOR 1 = 1 TO 50 

110 PRINT I 5 SOR(I) f 

120 NEXT I 

130 RETURN 

200 FOR 1 = 1 TO 50 

210 PRINT 15 I " ( 1/3) 

220 NEXT I 

230 RETURN 

300 FOR 1 = 1 TO 50 

310 PRINT I 5 I " (1/4) t 

320 NEXT I 

330 RETURN 

Exercise (Do It Yourself #12-1, #12-2, #12-3). 

#12-1 Diagram an ON . . . GOTO statement using A, B, and C for your routines and 
arrows for the branches. 

#12-2 Diagram an ON ... GOSUB statement using A, B and C as subroutines. 
(Don't forget to include GOSUB and RETURN!) 

#12-3 Diagram the "Square Root, Cube Root, and Fourth Root Table" program 
that you just ran. 
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] S' Chapter Checkpoint #12 



1 



1. If you want to make a test and take either of the two possible outcomes, then 
you can add to the IF. . . THEN statement. 

2. The statement ON. . . GOTO will allow you to use: 

a. a new language 

b. multiple branches 

c. branch water 



3. You must enter every subroutine with 



and exit from it with 
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Automatic Party Planner 

We're having a party for six rather difficult individuals. Each has strong 
feelings about one or more of the others. 

1. JOHN won't come unless SUE's there. 

2. KARL won't come unless MARY's there. 

3. RICK won't come without ELLA. 

So far, no problem. Just invite the three couples and have plenty of refresh- 
ments. But wait, there are complications: 

4. ELLA won't come if SUE is present. 

5. MARY can't stand RICK or ELLA. 

6. SUE won't come unless KARL or RICK is present. 

A quick look at 4 and 5 tells us we can't have all six people to the same party. 
We're going to have to make up some trial invitation lists and see which ones 
satisfy all six requirements. 



Sounds like a boring task, 
computer. 



hmmm. . . that often means it's a good job for a 



First we'll get the computer to come up with every possible list, using some 
nested FOR/NEXT loops. We'll use six variables 

JOHN KARL RICK SUE MARY ELLA 
When a person is on the list, we'll store -1 in the corresponding variable. When a 
person is not on the list, we'll store in the variable. 









^mK^II^^ 






Well, thatfs one problem you'll never have with TRS-80: 
Computers will go to any party > anywhe% and they 
don't eare who is there! 



Boim^ •.;•:.? Maybe that's why poor 1^80 ;n£yer gets: 
fe^lto anypaiiies^ 



We could use other constants instead of ri ^d 0; but 
thes6 happen to match the Computers -internal 
method of True/False Evaluation, 
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Type in these lines (Don't forget to use the AUTO command so you won't have to 
type in all those line numbers): 



10 YES = -1: NO = 
20 FOR JOHN=YES TO NO 
30 FOR KARL=YES TO NO 
40 FOR RICK=YES TO NO 
50 FOR SUE = YES TO NO 
G0 FOR MARY=YES TO NO 

70 FOR ELLA = YES TO NO 



Now press (BREAK) so we can skip some line numbers. Type: AUTO 400 and then 
enter these lines: 

400 REM ♦ ♦ ♦ DISPLAY THE CURRENT LIST 

410 PRINT "HERE'S THE TRIAL LIST:" s PRINT 

420 IF J0HN=YES THEN PRINT "JOHN" * 

430 IF KARL = YES THEN PRINT "KARL" * 

440 IF RICK = YES THEN PRINT "RICK" * 

450 IF SUE = YES THEN PRINT "SUE" f 

400 IF MARY = YES THEN PRINT "MARY" t 

470 IF ELLA=YES THEN PRINT "ELLA" t 

480 PRINT 

(BREAK) 

And now one line to close all the loops: 

500 NEXT ELLA t MARY * SUE t RICK * KARL > JOHN 

RUN the program — just to make sure it's working so far. It should print out 64 
lists (the last one is an empty list — a party to which no one is invited). 

Now let's find out which lists will satisfy all the rules. 

We'll start by converting Rule 1 into a Computer BASIC statement: 







1. JOHN won't come unless SUE's there. 



Now what condition will violate this rule? If SUE is invited and JOHN is not. . . 
that's okay (JOHN will never know the difference). But if JOHN is invited and SUE 
is not. . . that's a violation. 
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Here's a BASIC statement that checks for this condition (Don't type this in, just 
look at it): 

IF JOHN = YES THEN IF SUE = NO THEN PRINT "NO GOOD" 
We only check SUE's status if JOHN is invited. Otherwise, we don't care. 

The action-part of this IF test THEN action is yet another IF action THEN test 
statement. That can be a little tricky to keep in mind. Here's a diagram: 



-TRUE 



-TRUE- 



r nuL i r 

If JOHN = YES THEN If 5UE= NO THEN PRINT "NO GOOD' 



FALSE 

DO NEXT LINE 

a 



FALSE 

DO NEXT LINE 



There's another way to accomplish this "double" test. It involves another one of 
those good old plain-English features that make BASIC easy to learn. . . it's 
called AND. 



Remember our restatement of Rule 1: If John is invited AND Sue is not. 
let's translate that into BASIC (go ahead and type in this line): 

100 IF JOHN = YES AND SUE=NO THEN 500 



, well, 
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If both tests "pass" (JOHN - YES AND SUE = NO), then TRS-80 will skip the 
list-printing lines and get the next list. If either test does not pass (that is, if 
JOHN is not equal to YES or SUE is not equal to NO), then your Computer will 
proceed to the next line in the program. 

Here's a diagram of how this line works: 



BOTH ARETRUE- 

I * 1 

100 li JOHN = YES AND SUE= NO THEN 500 



1 



EITHER 15 FALSE 



DO NEXT LINE 



So far the program checks for violations of Rule 1. It's easy to add checks for 
Rules 2 and 3. Here's Rule 2: 



2. KARL won't come unless MARY's there. 



Following the example of lines 300-310, it's easy to add this logic to the program: 

110 IF KARL = YES AMD MARY = NO THEN 500 
Program (Do It Yourself #13-1). Add a check for Rule 3 violations: 



3. RICK won't come without ELLA. 
by adding line 120. 

120 
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Here's our working program: 

10 YES = »i : NO = 

20 FOR JOHN = YES TO NO 

30 FOR KARL = YES TO NO 

40 FOR RICK = YES TO NO 

50 FOR SUE = YES.TO NO 

60 FOR MARY = YES TO NO 

70 FOR ELLA = YES TO NO 

100 IF JOHN = YES AND SUE = NO THEN 500 

110 IF KARL = YES AND MARY = NO THEN 500 

120 IF RICK=YES AND ELLA = NO THEN 500 

400 PRINT: PRINT "HERE'S THE TRIAL LIST 

410 IF JOHN=YES THEN PRINT "JOHN" t 

420 IF KARL = YES THEN PRINT "KARL" t 

430 IF RICK = YES THEN PRINT "RICK" * 

440 IF SUE = YES THEN PRINT "SUE" t 

450 IF MARY=YES THEN PRINT "MARY" t 

4S0 IF ELLA=YES THEN PRINT "ELLA" , 

470 PRINT 

500 NEXT ELLA * MARY * SUE * RICK t KARL t JOHN 

Now for the really hard to please. . . 

Rule 4 goes like this: 



4. ELLA won't come if SUE is present. 



This rule will be violated if we have ELLA and SUE to the party. Either one alone 
will be okay. 

Program (Do It Yourself #13-2). Add a check for violations of Rule 4, by 
adding line 130. 



130. 



Rule 5 goes like this: 



5. MARY can't stand either RICK or ELLA. 



This one's a little more complicated. There are three people involved. We've got 
to be sure that MARY doesn't see RICK or ELLA. 
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We could handle this logic with two separate IF. . . THEN statements: 

IF MARY = YES AND RICK = YES THEN 500 

IF MARY = YES AND ELLA = YES THEN 500 
But there's an easier way, involving another plain-English word called OR 
(Notice that Rule 5 contains OR instead of AND). 

IF MARY = YES THEN IF RICK = YES OR ELLA = YES THEN 500 
If MARY is present, then BASIC will check to see if either RICK or ELLA is present. 

Let's add this logic to the program: 

130 IF MARY = YES THEN IF RICK = YES OR ELLA = YES THEN 500 
TRS-80 will go to line 500 only if all three tests pass. If any one of them fails, our 
Matchmaker will do line 400 instead. 



Rule 6 is the toughest yet: 



6. SUE won't come unless KARL or RICK is present. 



If Sue is present, then either KARL or RICK must also be there. It's okay if both of 
them come, as well. If Sue is invited and neither KARL nor RICK are, we ve got 
problems. 

IF SUE = YES THEN IF KARL = NO AND RICK = NO THEN 500 
This will work, but there's another BASIC word that allows us to make the 
statement more closely resemble the rule. The word is NOT. 

Type in this line: 

150 IF SUE = YES AND NOT (KARL = YES OR RICK = YES) THEN 500 

In plain English, line 150 says, "If SUE is invited AND it is NOT true that KARL OR 
RICK is invited, then get the next list (go to line 500). 
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ffl* Chapter Checkpoint #13 



1. Without testing these on your Computer, try to predict which ones will print 
the message "PASSED!" 

a. IF (1 = 1 ) AND (2 = 3) THEN PRINT "PASSED! " 

b. IF ( 1 = 1 ) OR (2 = 3) THEN PRINT "PASSED! " 

C. IF NOT (1 = 1 AND 2 = 3) THEN PRINT "PASSED! " 

d. IF NOT ( 1 = 1 ) OR (2 = 3) THEN PRINT "PASSED! " 

e. IF NOT (NOT 1 = 1 OR 2 = 3) THEN PRINT "PASSED! " 

2. Each test in column I is equivalent to one test in column II. Match them up. 

I. II. 

a. A<B 1. NOT (A>B) 

b. B =A 2. (BOA) AND NOT (A>B) 
C. A < = B 3. NOT (B<A) AND B<=A 

Compare your answers with ours in the Appendix. 



151 



f! 









Mjy-ltJ^ 




152 








'-■* ^ . J" *•■■*.■- \* :'..—. f '- 







i^^^^^p 



BW1IIHHHP 



A Great Big Calculator 

Now we'll put some of our tools to work by designing a calculator program. After 
we're done, you should have a much better idea of how to create your own 
programs. If the math gets too heavy Just skim through it— it's not as important 
as the overall process we're explaining. 

First the program description. 

The program should: 

1. Let you select any of the following functions: 
Sine 

Logarithm 
Power 

2. Ask you to type in the argument(s). 

3. Compute and print out the result. 

4. Return to Step 1. 

The program can be broken into two major sections. 

1. The "menu", which tells you what is available and asks you to select a choice. 

2. The three calculator routines. 

• each routine will ask you for an input value 

• compute a result 

• print out that result 




l^eefeely before you st&H so you; dba*t ^a^||^fe = 
4isorfettized ; jiMsffrae^ and h^4o^nd^fei^^(^ 
enie oSf BASK) st^t^aents. 
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Here's a diagram: 







■ — * 


SINE 


"ttENU" 

SELECT YOUR 

FUNCTION 








LOGARITHM 








^ 


1 U 


NTH ROOT 







Just to keep things neat, we'll plan our line numbers: 



Line range 


Function 


100-199 


Menu 


200-299 


Sine 


300-399 


Logarithm 


400-499 


Power 



Now that we've laid out the program organization, we can get down to coding. 
The following lines display the menu and ask for a selection or choice: 



li'0 PRINT "TYPE <1> FOR SINE" 
120 PRINT " <2> FOR LOGARITHM 

130 PRINT " <3> FOR NTH POWER 

140 INPUT CHOICE 

Once we've got a selection, we make sure it's valid. If it is, we want to transfer 
control to the appropriate calculation routine. This is a perfect place for ON. . . 
GOTO. We're only going to provide for a branch to a single line number, since, at 
the beginning, only sine operations will be available. 

150 ON CHOICE GOTO 200 
130 PRINT: GOTO 110 

Now for sine calculation routine: 

200 INPUT "INPUT ANGLE IN DEGREES" 5 A 
210 PRINT SIN(A/57*29578) 
220 INPUT "PRESS ENTER TO CONTINUE" 5 >($ 
230 GOTO 110 



This is a Utile jpce the J^^^ei^fxM^^W 
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These lines check for a 1 (sine) selection, and provide the subroutine to do the 
sine calculation. Notice that if CHOICE is not l, the program starts over at the top 
of the menu. In programmer talk, options 2 and 3 have not yet been "im- 
plemented." 

Program (Do It Yourself #14-1). Change line 150 to check for options 2 and 3. 
Add the appropriate routines at 300 and 400. 

Hint: For the power function, you'll need to input two values, X and Y. Then the 
program simply prints X4Y. Write the changes and new lines here: 










l^p^^^^l^il^(^^^^^^^^^^^^^5^^HMpffii^^^^p^^W™iltp^^^^p^^^^p^^ 



Be sure to complete and RUN the program before turning the page. Then check it 
against ours on the next page. 



155 



Here are the lines we added and changed: 

150 ON CHOICE GOTO 200 * 300 > 400 

300 INPUT "ENTER THE NUMBER (POSITIVE ONLY) " ? X 

310 PRINT LOG(X) 

330 GOTO 110 

400 INPUT "FOR X TO THE Y POWER t ENTER X" 5 X 

410 INPUT "NOW ENTER Y" 5 Y 

420 PRINT X(B Y 

430 GOTO 110 

RUN the program. For certain input values, you'll get an FC (function call) error 
message. This means that the input value was invalid for the function you 
selected. Simply RUN the program again with new input values. 

Which points out something lacking in the program: it doesn't check for invalid 
arguments. That leaves the program wide open to input errors which terminate 
the program with an abrupt error message. 

If you're trying to impress someone with a program you've written (or even more 
importantly, sell it to them), you certainly don't want a mistaken input value to 
blow you out of the program. 



For the sine eatc^atory ^ these in^ty^es^^^^^^;^^^;^;^^f 
For the power calculator, try these: i 



2 
2 
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Always strive to make your programs idiot-proof. This means that 
each time a user inputs to a program, the program should make sure 
the ifiputvalue Is in range before trying to use it If it's out of range, 
the program should ask for another value. 



Here are the limitations of the calculator routines: 
Routine Acceptable Input Range 

Sine Any number 

Logarithm Any number greater than zero 
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Power If X is negative, Y must be an integer. 

Furthermore, X QD Y can easily produce an overflow 
error (a value greater than 1.7 E38). For example, X = 
100, Y = 35 causes an OV ERROR. 

Input checking for sine routine: None needed. 

Input Checking for the logarithm routine: See next D.I.Y. Program. 

Input checking for the power routine: First we need to determine if Y is a 
whole number or not. Remember the FIX function? You tried it out in D.I.Y. #10-5. 
It simply returns the whole-number portion of the argument. If X - FIX(X), we 
know that X is a whole number. 

If we do get a non-integer Y, we then need to find out whether X is negative. If it 
is, we have invalid input. 

Take a look at this fancy statement: 

IF Y <> FIK(Y) THEN IF X < THEN GOSUB 900 

Here's how the statement works. When Y is a whole number, the first test fails, 
therefore program control drops down to the next line. 

But if the test passes (Y is not a whole number), control continues on the THEN 
action part of the statement. In this case, the action is yet another IF. . . THEN 
statement. 

This second IF. . . THEN works just like the earlier one: if the test fails (X is not 
less than zero), control drops down to the next line in the program; if the test 
passes, control continues over to the action clause, which in this case is a 
subroutine call. 

Add these lines to the program: 

414 R$="IF X IS NEGATIVE t Y MUST BE INTEGER" 

41G IF Y <> FIX(Y) THEN IF X < THEN GOSUB 900: GOTO 400 

Notice that the program calls a subroutine at line 900 when you input incorrect 
values for X and Y. The plan is to have one error-handler serve both the 
logarithm and power routines. Since the routine won't know "who" called it, it is 
appropriate to use GOSUB instead of GOTO. That way a RETURN will get back to 
the calling program. 
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Add this error-handling subroutine: 

900 PRINT "ARGUMENT(S) OUT OF RANGE: " 
910 PRINT R$: PRINT 
920 RETURN 

RUN the program. Try inputting a negative X and non-integer Y. Notice that R$ 
stores a message which gives the input range, and that the subroutine at 900 
uses this value. 

Program (Do It Yourself #14-2), Add input checking lines for the logarithm 
routine. Don't forget to assign a value to the R$ parameter. 



Be sure to test your program with invalid inputs for the logarithm routine. 

Here is the complete program, with our answer to the last D.LY. Program. 

110 PRINT "TYPE<1> FOR SINE" 

120 PRINT" <Z> FOR LOGARITHM 

130 PRINT " <3> FOR NTH POWER 

140 INPUT CHOICE 

150 ON CHOICE GOTO 200 * 300 t 400 

190 PRINT: GOTO 110 

200 INPUT "INPUT ANGLE IN DEGREE3" 5 A 

210 PRINT SIN(A/57*29578) 

230. GOTO 110 

300 INPUT "ENTER THE NUMBER (POSITIVE ONLY)" 5 X 

304 R$="X MUST BE POSITIVE" 

30G IF X <=0 THEN GOSUB 900: GOTO 300 

310 PRINT LOG(X) 

330 GOTO 110 

400 INPUT "FOR X TO THE Y POWER * ENTER X" 5 X 

410 INPUT "NOW ENTER Y" 5 Y 

414 R$="IF X IS NEGATIVE* Y MUST BE INTEGER" 

416 IF Y <> FIX(Y) THEN IF X < THEN GOSUB 900: GOTO 400 

417 IF X = THEN 420 

418 IF ABSCY * LOG (ABS(X) ) ) < LOG (1E3S) THEN 420 

419 R$="RESULT TOO LARGE" : GOSUB S00: GOTO 400 

420 PRINT X * Y 
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430 GOTO 110 

900 PRINT "ARGUMENTS) OUT OF RANGE:" 

910 PRINT R*: PRINT 

920 RETURN 

Notice we added three extra lines to the power subroutine, lines 417-419. These 
lines prevent an overflow error from occurring should you type in X and Y such 
that X ♦ Y is equal to or greater than 1E38. 

Line 417 is required to prevent an FC ERROR in line 418 when X equals zero. Line 
418 uses this reasoning: 

X 4 Y< = 1E38 only if LOG (X ♦ Y)< = L0G(1E38) 

This last inequality is equivalent to: 

Y * LOG (X) < = LOG (1E38) 

We use the ABS function to prevent a function call error when X < 0, and ensure 
that a negative number (X ♦ Y) is greater than - 1E38. 



5f Chapter Checkpoint #14 

1. Before you start writing a program, you should (choose one or more): 

a. Do 20 push-ups and 15 deep kneebends. 

b. See if someone else has already written the program you need. 

c. Describe in very specific terms what you want the program to do. 

2. List the three functions available on your TRS-80 calculator (the program 
developed in this chapter). 



List four other functions that you (or someone with the time, patience and 
taste for math. . .) could easily add to the calculator program. Hint: Look at 
the list in DIY # 10-5. 

Describe at least one of the calculator program's limitations (Talk about 
loaded questions. . .) 
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Bob's Corner Grocery Enters the Computer Age 

This is the story of how progress changed the life of Bob Babson, a humble 
merchant. By typing in the programs in this chapter, you can relive Bob's 
experiences. 

For 25 years, Bob ran a peculiar little grocery store. Peculiar because it carried 
only three items: 

Item #1 MILK 

Item #2 EGGS 

Item #3 FLOOR WAX 

Bob liked it that way, because it simplified store operation and left him with 
more time for his favorite pastime, poetry. 

But as the years passed, Bob became so engrossed in his poetic craft that the 
weekly process of taking inventory and re-ordering was an unbearable inter- 
ruption. 

The First Step. . . 

One day Bob read about a new invention called the TRS-80 Microcomputer. "Use 
it for inventory control— save hours of time!", the ad started out. He threw down 
the magazine and ran right out to buy a TRS-80. Only when he returned with the 
Computer and plugged it in did he begin to understand those last words in the 
Radio Shack ad, "Must be programmed first . ." 






His customers liked it, too, because it was alwaj 

to find what they wanted, be it milk, eggs, or floorwax 




out-of-range subscript. (More on subscripts later.) 
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After reading the first 14 chapters of the nifty programming book that came with 
his Computer, Bob took out his pocket notebook and wrote down a definition of 
his problem: 

1. Too much time aei/ofecf io inventory ! 

2. Net though f>MC Itft &r~ pocfry ( 

3. Hetrd a way h predict' hovj mucK mi IK, 
&f\$ <**?</ floor I*)*? fv order oncc^ <\. 
n\ontk- Mo wore uceiClx^ orders. 
(Will n^ire- V£W -fr&k milK!) 

Then he sat down at his Computer and typed in this program: 

10 INPUT "HOW MUCH MILK WAS SOLD LAST MONTH" * MILK 

20 INPUT "HOW MANY DOZEN EGGS" ? EGGS 

30 INPUT "HOW MUCH FLOOR WAX" ; WAX 

40 CLS 

50 INPUT "TYPE 1 FOR MILK t 2 FOR EGGS * 3 FOR WAX" » A 

S0 PRINT "ORDER THIS MUCH: " 

70 IF A=i THEN PRINT MILK 

80 IF A = 2 THEN PRINT EGGS 

30 IF A = 3 THEN PRINT WAX 

100 PRINT: GOTO 50 

Type in Bob's inventory control program and RUN it. 

The program was pure. . . poetry?. . . well, no, not quite. But it did give Bob more 
time to pen verses in his pocket-sized notebook. He felt that his TRS-80 was 
earning its keep. 




%sf 
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The Dawning of a New Era 

One day an unemployed BASIC programmer named Ray came in looking for 
some floor wax. He noticed the TRS-80, and got to talking to Bob about the 
inventory control program. When Bob listed the program for him, Ray chuckled 
and asked if he could dress it up a bit. Here's what he typed: 

NEW 

10 DIM G(3) 

20 PRINT "ITEM 1=MILK t ITEM 2 = EGGS * ITEM 3= WAX" 

30 FOR 1 = 1 TO 3 

40 PRINT "ENTER QUANTITY SOLD OF ITEM" 5 I 

50 INPUTG(I) 

55 NEXT I: CLS 

60 PRINT "ITEM 1=MILK * ITEM 2 = EGGS > ITEM 3 = WAX" 

70 INPUT "WHICH ITEM DO YOU WANT TO RE-ORDER" 5 I 

80 PRINT "ORDER THIS MUCH" 5 G(I) 

90 PRINT: GOTO 60 

As Ray explained it, he had replaced the three "simple variables" EGGS, MILK 
and WAX with a single "array variable" G( ) which was capable of holding all 
three values at once. 

Ray went on, "The ( ) holds an index that tells which value you want: G(l) holds 
your re-order quantity for milk; G(2), eggs; and G(3), floor wax." 

Then he drew a picture of G( ): 



; Whmy<msee<m> G(2},:etc., read M G-s«M^iit#^ j 






We'll b$ Milding on Bay's (not JBtab*s^ 
would be a good idea to save this <ro0{md* 
ing one) on tape for Convenience, 



C(l) 


MILK SALES 


&Q) 


EGG SALES 


G(3) 


WAX SALES 



"But what was wrong with my simple variables EGGS, MILK and WAX?" Bob 
wanted to know. "They worked just fine." 

"Right now they seem okay, but what about when you add items to your store? If 
you had 50 items, you'd have to type in 50 separate variables. 
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"See that little DIM statement in line 10? That tells TRS-80 to create an array G( ) 
with room for three items: G(l), G(2), and G(3). But the beauty of G( ) is, it's 
expandable! Simply by changing the DIM statement you could make the array as 
large as you like. For example, changing line 10 to: 

10 DIM G(20) 

would give G( ) the capability to store 20 items!" It was Ray's first chance to talk 
programming in several months. He beamed with satisfaction. 

Being a sensitive man, Bob couldn't bear to tell Ray that he never was going to 
add a single item to his line. So he nodded approvingly and offered Ray a job as a 
grocery sacker. And just for Ray's sake, he started using the array G( ). 



im 



In 




.._, — ,».. in ah 



M^^ kind of array has one 



DIM 



i create 



use a dim ( 



•r Torefer to.aaei^ 



•■■ H|" }. ■ • 'dm^im^ &?£.) '£*•■;£ 



•••• -'■.}■'■;■ ■:/'.'. ] 



I* •'•.:••',''•.:, 



is the name of the array (just like any other variable name), and size tells 
what the largest^ 



sd with dim, you can access any item in it 
the < ). 




array is like a numbered list; the subscript s| 
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Program (Do It Yourself #15-1). Suppose Bob did want to carry 20 different 
items. How would you change his original simple- variable program to handle it? 
(Don't do it — just think about it.) 

Now modify Ray's array program to handle 20 items. (Don't make up names for 
each item category — just call them "Item 1," "Item 2," etc.) 

When you're done, compare your program with ours in Appendix A. 




&w$m? : 



The End of the Honeymoon 

There was only one problem with Bob's computerized stock re-ordering system: 
the store was about to go bankrupt due to items being out of stock all the time. 
Seems that the demand for eggs, milk and floor wax changed from month to 
month. 

Bob mentioned the problem to Ray at 5:30 one day, just as the weary sacker was 
preparing to go home. 

Ray stared out the storefront window for a moment, remembering his glory days 
as a programmer. In those days, he used to solve problems like this in his 
sleep. . . 

"Well, Bob, suppose you keep track of how much was sold in each month in the 
preceding year, and make your monthly orders based upon the sales for the 
same month in the preceding year?" 

"Hmmm. . .", said Bob, "I'll have to think on that one for a while." 

Ray wished him luck and wandered home. 

Bob began working with Ray's idea right away. "Let's see," he said, "a single 
month uses three spaces in the array, so 12 months will require 36 spaces. I'm 
going to have to dimension G( ) for 36 entries. 

"Hey! That would make old Ray happy — he always did want to expand that 
array. Let's see, now. It's going to look like this. . ." 
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And Bob drew a picture that looked like this: 



JANUARY 



C(l) 


MILK SALES 


Ctt> 


EGG S/)L£S 


G-(J) 


WAX SALES 




FEBRUARY 


cm 


MILK SALES 


&(5) 


EGG SALES 


aa) 


WOW SALES 




MARCH 


&(7) 


niLH SALES 



Bob struggled with the problem of specifying a particular item for a given 
month. "Hmmra. What do all the milk quantities have in common? If I want 
milk for a given month, what subscript do I use?" After several hours, he had a 
breakthrough. 

Breakthrough (Do It Yourself #15-2). What subscript points to milk for a 
given month m? (Try various values for m, from 1 to 12. Then make a general 
answer.) 

Milk quantity for month m = G ( ) 

Here's Bob's breakthrough: 

"Okay, to specify the milk quantity for any given month, you multiply the 
month number times 3, then subtract 2. For example, December's milk quantity 
is stored in G( 12 * 3 - 2) = G(34). 

"The eggs quantity for any given month is stored in. . ." 
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When Ray came in the next morning, he found Bob asleep, his head pillowed by 
the TRS-80 keyboard. The area around his desk was littered with wads of crum- 
pled paper. 

Program (Do It Yourself #15-3). Follow through with Bob's idea, storing an 
entire year's sales record in G( ). 

Hint: The eggs quantity for a given month M is stored in: 

G(M*3 - 1 ) 

Where is the wax quantity for a given month M stored? 

Check your answer against ours in Appendix A. 

The First Quantum Leap 

After he listed Bob's still-incomplete program, Ray muttered something about 
there being no need to store two-dimensional data in a one-dimensional data 
structure, and went off to modify his first array program. Here's what he came 
up with: 

10 DIM G( 12 *3) 

15 FOR M=l TO 12 

18 PRINT "DURING MONTH #" 5 M 

20 FOR 1 = 1 TO 3 

30 PRINT "HOW MUCH OF ITEM" 5 I 5 "WAS SOLD" 5 

40 G(M*I)=RND(100) s PRINT G(Mfl) 5 "(TEST UALUE)" 

43 FOR T=l TO 800: NEXT T 

45 NEXT I *M 

50 CLS 

55 INPUT "WHAT MONTH IS IT" 5 M 

60 INPUT "PRESS <i> FOR MILK » <2> FOR EGGS » <3> FOR WAX" i A 

70 PRINT "AMOUNT TO ORDER IS" 5 G(M tA) 

80 GOTO 55 

When Bob woke up, Ray showed him the program. Bob ran it, and was quite 
pleased with the results. He was especially happy that the program produced its 
own sample data, so he wouldn't have to type in numbers (Let some one else do 
that!). 



Special Note abcmt line 40: Notice ■^■ : j^^pvi\ 
Itm This stands for Random" (unpredi^abfe) v 
iMicioo) returns a whole ntimbe* from i# : iw^ix«0): 
i^ttira 



e iising bnb to generate sample data, M 
have to type in 36 quantities. 
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Now he wanted to understand the program. "I still don't see how you got it to 
store all those numbers without increasing G( ) with DIM G(36). Nor do I see how 
you got it to locate each item in the array without multiplying the month times 
the item number and subtracting and all that nonsense." 

Ray hadn't had so much attention since his last day at the computer center, the 
day he accidentally erased the master file index ... 

"Well, Bob, I did expand G( ) — but in a different direction, or, to be precise, in a 
different dimension. You see, you tried to expand G( ) from a short list into a 
longer one, using the statement DIM G(36). What I did was change the array into 
a table, containing 12 columns and three rows, using the statement DIM G(12,3). If 
you consider how many entries there are in a 12 x 3 table, you'll see that I have 
indeed expanded the capacity of the original array. 

"In programmer-talk, I've gone from a one-dimensional array G( ) to a two- 
dimensional array G( , )." 



By t%w^,lh^ 






^ An array can have m*™ * h *» ™* Himrnicinn t™ «»* ***** 










To refer to an entire twondimensional array, and not to 
any particular element, we use this notation; 

This indicates that two subscripts are used; one before 
and one after the comma* You«an%usetMSno1^onin 
a program, however — it's strictly for the book. 
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Ray drew a picture of the array G( , ): 



I 

T 
E 
M 



nONTH 





1 


2 


3 


4- 


5 


6 


7 


8 


9 


10 


II 


12 


/ 


























2 


























3 



























"In your single-column array, it took only one subscript to specify an item. In my 
12-column array, it takes two subscripts to specify an item — a column number 
and a row number." 

"Okay, I get the idea of what you did — but why? How did you decide to use two 
dimensions instead of one?" 

The Flight of the Blazing Programmer 
(after the quantum leap) 

By this time Ray was beside himself with pride and confidence. He began to 
have visions of himself as a systems analyst with people waiting in line to have 
their systems analyzed. "I just looked at the data, realized there were now two 
organizing principles, and concluded that two dimensions were in order. 

"Originally, our sales information was organized by item number alone. There 
was only one way of looking at the data. But now, we've got two perspectives on 
the data. . . item number and month. You might say that we've gone from a 
one-dimensional data base to a two-dimensional one. For this reason, it's 
appropriate to switch from a one-dimensional array to a two-dimensional one. 

"You've already mentioned one advantage of this array — that we don't have to 
multiply the index to get the item for any particular month. For example, to get 
the sales of milk in November, we just look at 0(11,1), which is column 11, row 1 in 
our table. In your extended list, we'd have to use G(I*3r2). 
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"But there's another more important advantage of G( , ) over G( ). Think 
about what we're storing — sales totals. Now how do we want these sales figures 
organized? By month or by item number? Since we've got the data in a two- 
dimensional array, we can easily look at it from either perspective. j 

"Here, let me give you a sample of the possibilities." And Ray added these lines 

to the program on page 167: j 

51 PRINT ''PRESS <1> FOR RE-ORDER t <2> FOR SALES ANALYSIS" ' 

53 INPUT A 

54 ON A GOTO 55 , 100 j 
80 GOTO 51 * 
100 PRINT "SALES ANALYSIS ♦ ♦ ♦ " 

110 H=l: L=l: GT = j 

115 HT = G(1 *1)+G(1 *2)+G(l *3) : LT = HT I 

120 FOR n = 2 TO 12 

130 MT=0 

140 FOR 1 = 1 TO 3s MT = MT + G(M *l) : NEXT I 

150 IF MT>HT THEN H = M: HT = MT 

1B0 IF MT<LT THEN L = M: LT = MT 

170 GT=GT+MT 

180 NEXT M 

190 PRINT "THE GRAND TOTAL OF ITEMS SOLD IS" 5 GT 

200 PRINT "MONTH" 5 H 5 "WAS BEST * WITH TOTAL SALES OF" 5 HT 

210 PRINT "MONTH" 5 L5 "WAS WORST t WITH TOTAL SALES OF" 5 LT 

220 GOTO 51 

Program Analysis (Do It Yourself #15-4). RUN the program and try to figure 
out how the sales analysis works. 

Hints: H stores the subscript of the high-sales month. The program starts out by 
assuming that month l was best (line 110: H=l). 

HT stores the total sales for high-sales month H. The program starts out with the 
total equal to the total sales for month 1 (see line 115). HT is compared with each 
monthly total MT for months 2 through 12 (lines 120, 130, 140, and 150). When MT > 
HT, M becomes the new high-sales month, and MT becomes the new high total. 

What purpose do L, LT and GT serve? 
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After running the program, use immediate commands to find out: 

1. What item sold best in the best month? 

2. What item sold worst in the worst month? 

Program (Do It Yourself #15-5). Add to the sales analysis portion of the 
program so you can compute and print total annual sales for each item. 

Hint: In the last program, we computed monthly totals. In your program, you'll 
need item totals. First total up 

G(l,l) + G(2,l) 4- . . . + G(12,l) 

That sum will be total annual sales for item 1, milk. Also do the sums for I = 2 and 
1 = 3 (I stands for the second subscript, the item). 

220 T1=0: T2 = 0: T3 = 0; REM SET TOTALS=0 



310 GOTO 51 



0* Chapter Checkpoint #15 

1. Arrays: 

a. are named after Bob's sacker/programmer 

b. let you store related information 

c. are created by the DIM statement 

d. all of the above 

2. See if you can draw a rough sketch of a simple two-dimensional array. 




171 








■i 










172 



















The Founding of an Empire 

After running Ray's sales analysis program, Bob Babson recognized that he was 
wasting Ray's talents by using him as a grocery sacker. So he promoted him to 
cashier, and gave him permission to fool around with the Computer during his 
lunch break. 

With his powerful new sales analysis program, Bob's business flourished. His 
inventory of milk, eggs, and floor wax was always right for the demand. Profits 
were higher than ever. 

In fact, Bob decided to open a chain of stores under the name, Bob's "Simply 
Super" Stores #1, #2, . . . #n. He liked the sound of the name. "Alliteration," he 
explained to Ray. 

The only problem Bob now faced was how to raise enough capital to purchase 
one TRS-80 for each outlet. He considered instituting a temporary employee wage 
cut to free up the cash. . . 

But once again, Ray had a better idea. 

"Bob, you still haven't grasped the full potential of arrays. Now think about it 
for a minute. Up to now, you have been storing data in terms of two organizing 
principles: item number and month number. That's why we have a two- 
dimensional array. 

"Now you're adding more sales outlets. Instead of putting a Computer in each 
store, why not simply add an additional organizing principle to the data — 
namely, the store number. Then every piece of data will be pin-pointed by three 
indices: item number, month number and store number. Since we're now talking 
about a three-dimensional data base, we'll need a three-dimensional array. 



You'll need some jpf the programs developed ill the 
previous chapter. Be sure to do all the DXY/s in this 
chapter, and to check your work against the programs 
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"How many stores will you start with?" 

Well, I was thinking of four, counting this one. That would be one for each side of 
town." said Bob. 

"Here, watch this. . ." And Ray typed in a new program, which was actually 
quite similar to his first array program. 

10 DIM G(4 *12 >3) 

12 FOR S=l TO a 

13 PRINT "SIMPLY SUPER STORE NUMBER" 5 S 
15 FOR M=l TO 12 

18 PRINT "DURING MONTH #" 5 M 

20 FOR 1 = 1 TO 3 

30 PRINT "HON MUCH OF ITEM" 3 I 5 "MAS SOLD" 3 

40 G(S *M >I )=RND(100) : PRINT G ( S * M 1 1 ) 3 "(SIMULATED)" 

42 FOR T=l TO 800: NEXT T 

45 NEXT hlltS 

50 CLS 

54 INPUT "NHAT STORE ( 1 *2 *3 t OR 4) " 3 S 

55 INPUT "WHAT MONTH IS IT" 5 M 

B0 INPUT "TYPE 1 FOR MILK * 2 FOR EGGS * 3 FOR WAX" 3 A 
70 PRINT "AMOUNT TO ORDER IS" 3 G(S *M *A> 
80 GOTO 53 

Program Analysis (Do It Yourself #16-1). By now you can figure out what's 
happening in this program. 

1. After running the program, type in the following immediate line: 

PRINT G(4, 12, 3) 
What does the number printed represent (what store, month, and item)? 

2. How many items can G( , , ) store? 

3. The old array G( ) was like a list; G( , ) was like a table with rows and 
columns. How would you visualize the three-dimensional array G( , , )? 

Program (Do It Yourself #16-2). Start with the sales analysis program from 
the last chapter and make the necessary changes so it handles all four stores, 
one at a time. You have to change every reference to the array, and add a 
FOR/NEXT loop. 




Compare your answer with ours in Appendix A. 
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*> W/s^^v i \ An; array; can have any number of dimensions, as long as suftent h : : 



\ iromoryfc 



DIM 



; , When referring to an array- outside of a program, use this notation: 
( ) ; Onedim^nsion 

••( , } Two dimensions ; 

fiabte( , i ;) : three dimensions :; 

:; i. • and so forth, sNowing how ;niany commas woulci be needetj, ^uileavihg out the actiia!^ g 



sional array i$; m a stack of pages^ each page containing a table. The fliitT r 
(:; = ■■; subscript specifies the &m number; the secdncT, the row; the third, the coiuhW;; i ; 
: - TogetHer; the three subscripts pinpoint m particular entry, : 



lids notation is for use in writing about programs. 

In a^totprogi^^ sub- 

; scripts.: \\\. "\ : . r " 



The Simply Super Mart chain was truly an idea whose time had come. All four 
stores prospered, under the guidance of the Simply Super Sales Analysis Prog- 
ram, of course. 

As a result, Bob Babson was able to retire from day-to-day responsibilities in the 
store. For the first time in his life, he could devote full time to his poetry. 

And Ray? Well, Bob made him manager of one of the stores, and put him in 
charge of computer applications. 

This was the opportunity Ray had been waiting for. Little did Bob Babson 
realize it, but the Simply Super Mart Chain was about to venture into the 
uncharted land of. . . computerized advertising! 

Move Over, Madison Avenue! 

Refer to UFO #15-1. You'll notice it says any variable name can be used for the 
array. Does that include string variables? 
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Exploration (Do It Yourself #16-3). Create an array that will store string 
values instead of numbers. Store a list of 10 names in the array, then print them 
out in the same order as they were input. 

Now you're ready for Ray's program. . . almost. First we've got to formally 
introduce a statement we've used once or twice: CLEAR. 

We've told you that CLEAE erases the contents of variables. Well, it can also be 
used to set aside more (or less) space in the Computer for storing your string 
variables. Read the note in the margin for details. 

Finished with that? Whew! Now for the program. . . 

10 CLEAR 100 

15 DATA 5» 5# 4 

20 DATA MEN* WOMEN t KIDS* PETS* SHOPPERS 

30 DATA LOME » NEED » ADORE t DEMAND , APPRECIATE 

40 DATA CONMEN I ENCE , LOW PR I CES , FRIENDLY ATMOSPHERE* QUALITY 

45 READ N t U* F 

50 DIM NN$(N) f VB$(V) t FT$(F) 

S0 FOR 1 = 1 TO N: READ NN$( I ) : NEXT I 

NEXT I 

NEXT I 



70 FOR 1 = 1 TO Y: READ VB*< I ) 
80 FOR 1 = 1 TO F: READ FT$(I) 



90 CLS 

100 C = RND(5) 

110 C=RND(5) 

120 C=RND(5) 

130 C = RND(4) 

140 FOR 1 = 1 TO 1000 

150 PRINT 

160 GOTO 10 



PRINT NN$(C) 5 "--EVEN" 5 
PRINT NN$(C) 5 "--" ? 
PRINT UB$(C) 

PRINT "BOB's SIMPLY SUPER" \ FT$(C) 5 " ! " 
NEXT I 



RUN the program. But don't let it run too long, or you might start planning a trip 
to Bob's Simply Super Mart! 

Program Analysis (Do It Yourself #16-4). In the immediate mode, type in a 
FOR/NEXT loop that will print out 

• All the nouns, NN$( ) 

• All the verbs, VB$( ) 

• All the "features", FT$( ) 
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You may have noticed cases where the ad slogan repeated a noun, as in: 

MEN - EVEN MEN - DEMAND 
BOD'S SIMPLY SUPER QUALITY! 

It wouldn't be hard to prevent this from happening. The program just needs to 
remember which word in NN$( ) was chosen in line 100, and then make sure this 
one isn't chosen again in line 120. If it is, then repeat line 120 until another word 
is chosen. For example, type in these lines: 

100 D = RND (5) : PRINT NN$ (D) 5 "--EVEN" 5 

110 C = RND (5) : IF C = D THEN 110 ELSE PRINT NN$ (C) 5 "--" 5 



Poetic Justice? 

The Computerized advertising campaign proved to be a mixed blessing. 

First of all, Ray added a printer to his Computer system, and used it to print out 
reams of advertising flyers. Customer demand increased dramatically; the 
inventory program had to be modified so that the reorder quantity was always 
three times last year's monthly order. Bob's suppliers couldn't keep up with his 
demand, so he had to look for other suppliers. All four stores had to be expanded 
and remodeled to handle the increased customer load — more counters, wider 
aisles, piped-in music, etc. 

All of which left Bob with less and less time for his poetry. . . 

But the ad-slogan program had given Bob an idea. In the past few years, he had 
come to recognize his own poetry for what it was — doggerel. Well, if Bob was 
too busy to write doggerel, then maybe he could program TRS-80 to do it for him! 

Program (Do It Yourself #16-5). Write a poetry (or doggerel) program. 

Decide on your own format, or use this suggested approach: 

1. Read 10 nouns from DATA statements 

2. Read 5 adjectives from DATA statements 

3. Read 5 adverbs from DATA statements 

4. Read 5 intransitive verbs ("be-verbs") from DATA statements 

5. Print out randomly selected words in the following pattern: 

(noun) in the (adjective) (noun) 
(noun) (adverb) (adjective) 
when will the (noun) (verb)? 
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Here's what a sample poem might look like: 

BULLS IN THE RED BIRDNEST 
WINTER SLONLY FALLING 
NHEN WILL THE TREE AWAKEN? 

The nature of the poems will be determined by the words you store in the DATA 
statements. 

For our answer, see Appendix A. 

Exploration (Do It Yourself #16-6), All right, you've seen string arrays. Now 
what other kinds of arrays might there be? Hmmm. What other kinds of 
numbers are there? Remember #, %, and !? (You may want to look back at the 
programs in Chapter 9 for a refresher on numbers.) 

1. Create an integer array, and demonstrate that it stores integer values only. 

2. Create a double-precision array, and demonstrate that it stores double- 
precision values. 

3. Create a single-precision array, and demonstrate that it stores single- 
precision values. (Yes, we know, G( ) and all the other grocery arrays were 
single-precision. We just want you to put them in perspective.) 

Two Short Subjects 

In all our array programs, we've used 1 as the lowest subscript for the array. This 
is a natural approach. That way, 1 refers to the first element in the array. 
Furthermore, we said that the statement: 

DIM G(20) 

creates an array that can store 20 items, G(l), G(2) v . ., G(20) 

Well, your TRS-80 BASIC arrays are special; each dimension has one extra sub- 
script available, called the zero subscript. It works just like the other subscripts. 
For example, type in these immediate lines: 

CLEAR 

DIM G( 1) 

G(0) = 1 

G(l) = 10 

PRINT G(0) f G(i ) 

Not one, but two elements in the array G( )! 



dSflSZ: 
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For two-dimensional arrays, both dimensions have zero-subscripts. Type in 
these immediate lines: 

CLEAR 

DIN G( 1 #1) 

G(0 »0) = 1 

G(0 tl ) = 10 

G( 1 »0) = 100 

G( 1 #1 ) = 1000 

PRINT G<0 ,0) t G<0 ,1 > f G( 1 *0) t G( I #1 ) 





For every dimension of an array, the lowest subscript allowable is oV 



e array G{ 




Why the zero subscripts? Well, in some applications, it's convenient to be able to 
use them. At the end of the next chapter, we'll give you an example. For now, you 
can use them. . . or ignore them. 

TRS-80 has another special array feature. Used properly, it's a convenience. But 
it can get you into trouble. Try this (immediate mode): 

CLEAR 
A<5) = 100 
PRINT A(5) 
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Now how did that work? You never DIMensioned the array A( )! Here's what 
happened. CLEAR erases all arrays and other variables. When you used A(5), 
BASIC automatically created an array A( ). How big is A( )? Try these immedi- 
ate lines: 

A(6)=90 
A<7)=100 
A(8)=110 
A(9)=i20 
A( 10)=130 
A( Ii) = i40 

The last line will cause this to happen: 
TBS ERROR 

t&:*/rt ii' -i iiti& ■ ' k Afc^iAii* A*i*:^'»f jU :..*i*tiii( ■ A" ;^: '■ ' ™ ;' A:^ '■ ■^■■■^■■■^J^' ' ■ ':■■', '■■■ A-/A ';■,"'■■: A ■ V : - ' A- A '■ »= A ' ':A- ■ '='' ■! AT ■ ; : * : ■ '' A' ■■:■ '^A' 
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unple, if you use a statement like this: 



.'0./. : ' : t ••.'a- : '- :: • ?-' .-'i'O'-"- ' : A-'-^V.;'- 1 -;./ /a- : 



without a prior d^ , ,jrin effect the Computer 

automatically performs this statement: >..-. : A 

;■'. dim A(io,iO;io) ; 

before giving Afs.is) the value m. Note that you cannot use a subscript greater than 10 in 
an automatically created array (since each dimension in such an array 
subscript of 10): 










??f^^^ 



en 1 






Why use automatic array creation? Well, it's simply a convenience. 
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If your array will need no more than 11 subscripts per dimension, you may 
choose to skip the DIM statement and let the Computer create the array. But 
unless you need exactly 11 subscripts per dimension, you'll be wasting memory; 
the array will be larger than you need. We suggest you always dimension your 
arrays to the size you need, using the DIM statement. 

Arrays and Memory Use (Optional Information). 

Multi-dimension arrays can use up your Computer's memory quickly. Of course, 
the type of array is a factor here, as well. 

Integer Arrays 

Each array element takes two memory locations, or "bytes." For example, after: 

100 DIM NN%<2*5) 

array NN%( , ) contains 3 * 6 - 18 integer elements; 18 integer elements take up 
18 * 2 - 36 bytes of memory. 

Single-Precision Arrays 

Each array element takes four bytes of memory. For example, after: 

100 DIM SS! (2 »5) 

array SS!( , ) contains 3 * 16 = 18 single-precision elements; 18 single-precision 
elements take up 18 * 4 = 72 bytes of memory. 

Double-Precision Arrays 

Each array element takes eight bytes of memory. For example, after: 

100 DIM S5#<2 f5) 

array SS#( , ) contains 3 * 16 = 18 double-precision elements; 18 double- 
precision elements take up 18 * 8 = 144 bytes of memory. 

String Arrays 

The string space (what is CLEARed) is used to store the string text itself. 
However, each string array element requires three bytes of memory "overhead." 
For example, after: 

100 DIM TX$(2 >5) 



For now? just think Memory storage location" when 
youi 
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array TX$( , ) contains 3 * 16 = 18 string elements; 18 string elements take up 18 
* 3 = 54 bytes of memory. The actual length of each string must be added to this 
value to get the total memory usage of TX$( , ). 

General Formula for Computing Memory Requirements of Arrays 

The array GKNi, N 2 , . . ., N k ) requires the following amount of memory: 

14 + (k*2) + T * {(Nl + 1) * (N2 + 1) * ... * (Nk + 1)} 

where k is the number of dimensions in the array, and the value of T depends on 
the array type: 



Type 


T = 


Integer 


2 


Single-Precision 


4 


Double-Precision 


8 


String 


3 



Nirts®^^ 



M Chapter Checkpoint #16 



1. See if you can correct this statement to make it meaningful to TRS-80: 

DIM 1 (G *2 #6) 

2. Can you remember what limits the dimensions of an array? (Hint: If you 
forgot maybe TRS-80 can jog your memory.) 
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The Menace from Meklovakia 

At great risk, we were able to place our top covert operative, Agent 7E-3, into the 
totalitarian state of Meklovakia; his mission was to foment insurrection by 
whatever means possible. 

E3, as our man is called for short, was a former programmer whose sneakers and 
unobtrusive manner made him perfect for the mission. Being logical — a 
necessity for any programmer — our intrepid operative decided to subvert the 
computerized Meklovakian Censor. 

All writings that are to be published or broadcast in Meklovakia, you see, must 
first be fed into the Automatic Censor. E3 provided us with a copy of the Censor 
program. We're half-ashamed to admit it, but it will run on your TRS-80! 

Well need to lay some groundwork before looking at the program. In particular, 
we're going to look at several new BASIC statements and functions. Since we're 
talking about text rather than numbers, all of them will involve strings. Along 
the way, we'll be giving a brief refresher course in Meklovakian history. 



^TexT — in Gomputerese "— refers to string rather 
fa;« sferlngs from 

ing letters, numbers, puiw^^ and even 



What's line 90 for? 

Remember the string space? mat's where the Compu- 



First you take a string. . . 

Let's start by storing a string in a variable. Type in this program: 

30 CLEAR 50 

100 PRINT "TYPE IN A LINE AND PRESS <ENTER>" 

120 INPUT P$ 

130 PRINT P$5 " IS STORED IN THE COMPUTER" 

140 PRINT 

150 GOTO 30 



>e Computer 
off and on again, but its much easier to Mit in the 



llltli 
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RUN the program, and try entering these lines: 



THIS MESSAGE CONTAINS 35 CHARACTERS CENTER) 

>>>>>>>>>>>> >>>>>>>>>>>> (ENTER) 

GIME ME LIBERTY t OR GIUE ME DEATH! CENTER) 



Hey — what's this EXTRA IGNORED business? Is the Automatic Censor already 
in place in the Computer? Must be stored in ROM. . . 

Well, actually, there is a kind of censor built-in to the Computer. But it's 
harmless and quite purposeful. You see, when you type in values to an INPUT 
statement, TRS-80 looks for certain punctuation symbols to tell it where the text 
begins and ends. 

In particular, commas and colons serve as markers. So when you typed in GIVE 
ME LIBERTY, OR GIVE ME DEATH, the Computer assumed that the intended text 
ended at the first comma. Since it found more text after the comma, it warned 
you that some information had to be ignored. 

There's another very useful marker, the double-quote. If your INPUT text starts 
with a double-quote, your Computer will accept everything you type into one 
string — until it comes to another double-quote. This lets you get commas and 
colons into the string. The quotes do not become part of the string; they are 
simply markers. 

Now try typing in the last string again, but this time start and end with a 
double-quote. 



.- \sS^'lj?f : '^mi-'O0' ; ■''-*•'■••• -UFO;' $i-7-lw^^ 'i- ' :£^ : -^--.:>: ^ft":' % V^l; • 



;'•.-. .- .>-•'.; .::.><; V 




- -- — .... 



f dUr computer 
ire used an 'na^it^tttements 

they must always^e placed inside doybje-quotes: > : :,;-JS .; v ; , -■■:■„ 
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Provocateurs, Infiltrators, and Other Long Words 

With surprising ease, our fearless infiltrator obtained a position in the Cen- 
sorship bureau and, after a few nervous weeks, decided to test the Automatic 
Censor for the first time (the Man vs. Machine theme again). 

After entering the string input program into the computer, he quietly typed in 
the following (and you can do likewise): 



RUN fENTEHl 

"THE MEMORY OF MEKLOUAKIA'S GREATEST HERO t SCRUBDEK t LIMES ON 



(ENTER) 

No sirens went off, no bells clanged. The only noise heard, in fact, was a sigh of 
relief from Numero 7 as TRS-80 answered with: 

?0S ERROR 

No sweat, he thought, and the diminutive programmer simply made the follow- 
ing changes in line 90: 

90 CLEAR 300 

Nowyow can safely RUN the program, since it was our man in the field who took 
all the risks. Now for the long-awaited UFO on CLEAR. . . 




trs-80 stores string information in a special area of memory called 
the string space. The size of this space is initially set to so characters. 
That '"is, the Computer can store up to w characters of string 
information. You can change this size ^increase tt or decrease it— 
the clear statement: 

CLEAR/? 

where n is a number or a numeric expression telling how much string space you want 
reserved. 

clear also clears out the current values of all variables , For this reason , it is almost always 
used early in a program . To clear out all variables without changing the current size of the 
string space, simply use: 

CLEAR 

by itself, without a number or numeric expression. 



Stored where? In ROM? That must be somewhere just 
southeast of Sedalia. No. . . Actually, ROM is short for 
"Read-Only Memory" which is, in effect, the "pre- 
programmed" stuff your TRS-80 has that you can't 
change (such as the BASIC language). 



How much string space should you clear? First figure 
out how many string variables you are going to need, 
and what their maximum lengths will be. Add these 
up, and youVe got a good first estimate. But this still 
may not be enough if you're doing a lot of string proces- 
sing (described later in this chapter), because TRS-80 
will also use the string space for its internal string 

If you clear too much space, BASIC won't have enough 
memory left to do anything, and you'll have to reset the 
Computer. For now, let's leave string space at 300. 
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So now we can store a long string — even an inflammatory one. What's next? 

Before doing anything to the string, we need a way to "look at it" while a 
program is RUNning. For example, how long is the string? Well, we can always 
print it, and count the length, but this is rather slow and painful. As you've 
heard many times already, TRS-80 has a better way. . . 

New! Improved! String Measuring Function! 

• No more tiresome, error-prone character-counting! 

• Returns the exact length of any string — instantly! 

• Easy to use — just type LEN ( ) with your string inside the ( )! 

• Hundreds of uses — around the house or office — gets you out of just 
about any stringy situation! 

Make sure you still have the string input program in memory (if you don't, then 
type it in again): 

90 CLEAR 300 

100 PRINT "TYPE IN A LINE AND PRESS <ENTER>" 

120 INPUT P$ 

130 PRINT P$; » IS STORED IN THE COMPUTER" 

140 PRINT 

150 GOTO 90 

Now add one line to the program then RUN it: 

125 PRINT "THE LENGTH OF THE STRING IS" fLEN(P*> 









f^^^^^S^^^^^^^^^^B 
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Program (Do It Yourself #17-1). Anticipating the horrors of the Automatic 
Censor, alter the string input program so that it refuses to accept any four-letter 
word you type in, and stores some other word instead. 

(Oh — you're partial to words with four letters? Then make your program reject 
all 10-letter words.) 



After you've tried — and succeeded, we hope — be sure to look at our answer in 

Appendix A. 

This program isn't much of a threat to free expression — yet. You can fool it by 

typing in a couple of words — even if both are, tish, tish, four letters long. For 

example, 

DROP DEAD 
looks perfectly acceptable to the program, even though either word by itself 
would be rejected. As far as the program is concerned, DROPDEAD is a string mne 
characters long, so it's okay. 

What's needed is a way to examine the parts of a string. Well, you can always 
look at it on the display — but that invites human error and judgment. You 
might be tempted to accept certain four-letter words simply because they are 
neither obscene, uncouth, inflammatory, nor abusive. That won't do at all since, 
by design, the Automatic Censor must be autocratic and arbitrary to a fault. 

The following fundamental axiom suggests an approach to the problem: 




Fundamental Axiom #17-1 

AH strings have three parts: 

1) A left portion 

2) A mid portion 

3) A right portion 



AriWotkn 
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TRS-80 has a set of functions designed in accordance with this axiom. In the 
immediate mode, type in these lines: 



P$="LONG LIVE SCRUBDEK" 
PRINT LEFT$(P*» 4) 
PRINT LEFT$(P$* 9) 
PRINT RIGHT$(P$» 4) 
PRINT RIGHT$(P$> 8) 



Are you with us so far? Good, now type this and watch closely: 



PRINT MID*(P$* 5* a) 
PRINT MID*(P$# 11 » 5) 



UFO #17-4. 

trs-80 has three builtH 
lEm/Mii^, arkl rights (i 
and ''right-string"). Lefts getsthe 
mid portion; rights, 

lefts and rights have the following general form 












190 



Now this all may be new to you but not to 7E (actually 7E-3 but remember, he's 
working undercover now). He finally began to realize that the Meklovakian 
code wasn't that difficult, and openly began to challenge the system in this 
manner (after all, that's what he's getting paid to do). 

Type along with him in the immediate mode: 

P$="SCRUBDEK LIUES" 

PRINT MID*(P»» 1 » 8) 

P$="WHO KILLED SCRUBDEK?" 

PRINT MID$(P*. 12. 8) 

P$= "THE CROWDS WERE SHOUTING. SCRUBDEK. SCRUBDEK. HE 'SOUR 

MAN" 

PRINT MID*(P*» 37. 8) 




By now, you should be ready for. 



Fundamental Axiom #17-2. 

It's easy to find a string if you know exactly where to look. 
The trick is to know where. . . 

By chance, Agent 7 stumbled across a classified Meklovakian Computer opera- 
tion manual that gave a detailed account of how the Automatic Censor ferreted 
out those unauthorized words. This, of course, made E3's job infinitely easier and 
he passed on the information verbatim: 

Suppose you suspected that P$ contained SCRUBDEK, but you didn't know where. 
You could use MID$ to search through the string, as follows: 

1. Get the length of P$ — LEN(P$) — so you'll know how many eight-character 
sequences you need to check. Suppose you can't display the following string, 
but your program can "look" at it with LEN and MID$. P$ contains this value: 

"LONG LIME SCRUBDEK" 

2. Get the first eight characters of P$ — MID$( P$, 1, 8) - and compare with 
"SCRUBDEK". 



LONG LIVE SCRUBDEK 
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3. Starting with the second character of P$, get another eight-character portion 
— MID$(P$, 2, 8) — for comparison. 

L UNG LIVEI SCRUBDEK 

4. Continue until you have checked the entire string. The last portion you check 
should be MID$(P$, LEN(P$) -7, 8) 

LONG LIME lSCRUBDEKl 

Program (Do It Yourself #17-2). As you may have gleaned from the earlier 
examples, SCRUBDEK was a Meklovakian patriot who had to be eliminated. His 
name has become the rallying cry of the Meklovakian Underground. Under- 
standably, the current rulers of that nation would like to erase the name from 
the national consciousness. Your mission is to anticipate what kind of program 
they might use to accomplish this goal. 

Write a program that INPUTS a line of text, and then searches through the text 
for the word SCRUBDEK. If it finds the word, it prints a warning about what 
happens to trouble-makers in Meklovakia. 

Hint: MID$ and LEN are the only string functions you need. Use MID$ like a 
moving window to check eight-character portions of the text, starting at posi- 
tion one. 

Give it a good try. When you get a working program, be sure it can handle all 
kinds of situations — SCRUBDEK at the very beginning of the text, very end, 
inside another word, etc. 

When you're done, be sure to look at our answer in the Appendix. 



';$^y^ 
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H* Chapter Checkpoint #17 

1. Anytime you use a string within a name-it statement, you must enclose the 
string inside: 

a. double quotes 

b. daisy clover 

c. numeric expressions 

2. What's wrong with this statement? 

"All strings hfilve three parts — a left portion, a right portion, and a child-size 
portion." 

3. In order to expand the string space from its normal characters, 

you must type and then the number of the characters desired. 
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Our Man in Meklovakia, Continued 

Now we've solved the problem of searching through text for a particular string. 
But two problems remain. 

1. How about those four-letter words? After our last accomplishment, this may 
seem like gilding the lily, but to any right-thinking Meklovakian crat, it's 
absolutely necessary that we have this capability. A truly effective censor 
can't be required to know in advance which words are to be censored. 

2. Once we've found the offensive words, what do we do with them? We can 
count them, but little else. Are we in the business of revolution — or simply 
statistics? Of course, we can be sure the Automatic Censor will do much more 
than count offenses. Its goal is to eliminate them. 

We've already got the necessary tools to solve problem #1. The trick is to know 
how to use them (Corollary to Fundamental Axiom #17-2). But problem #2 is 
really urgent, and requires some new tools, so we'll tackle it first. Meanwhile, 
you can be thinking about how to find any four-letter word in any string. 

String Surgery in Your Spare Time! 

• No license required! 

F un — Challenging — Educational! 

# Train yourself for a career in Meklovakia! 

First of all, let's get a little perspective on strings. Strings are one of BASIC'S four 
categories of data. The other three are all numeric: 

Integers 

Single-Precision Numbers 
Double-Precision Numbers 



What's a crat? That's* a generic term for autocrats, 
bureaucrats, technocrats, hypocrats (that's right, 
hypocratsl). 



Here are a few pointers to get you started on problem 1: 
First, you've got to decide what constitutes a word, in 

delimits (marks the beginning and ending of) a word? 



Once you've pinpointed a word by finding its beginning 
and end, how do you find out whether it has four letters 
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You know about the many operations that can be performed on numeric data, T 

but what about strings? At present, all you can do is store them, print them out, I 
and examine them. Given a string, you cannot modify it. Nor can you take two 

different strings and operate on the two of them together. It's a wonder you've f 

gotten this far with such limitations! f 

Well, what kinds of operations would you like to perform? On numbers, you've 

got +,-,*,/ and ♦ . Which of these might be useful with strings — and how would j 

they work? Hmmm. ' 

Back to the laboratory, Igor, revisited. j 

Find out which, if any, of the math operators can be used with string values. You 
might try lines like this: 

PRINT "LONG LIVE SCRUBDEK" -"SCRUBDEK " | 

If you find an operation that works, make sure you understand what it is doing. 

Do some experimenting on your own before going on. . . I 

If you've done some experimenting, you won't be surprised when you type in 

these immediate lines: i 

A$="HAYE MORE FUN" ' 

B$="MONKEYS" 

C$=B$+A$ | 

PRINT C$ < 

To get this: i 

MONKEYSHAVE MORE FUN ' 

Looks promising, but where'd the space go between MONKEYS and HAVE? Look I 

closely, and you'll see we didn't put one there. Try this line: I 

C$=B$+" "+A$ 
There's a single space between the quotes. \ 
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The plus symbol + can be used to join two strings. This is called 
"concatenation," which means "linking" or "stringing together." 
The general form for concatenation is: 

stringl + string2 

where stringl and string2 are string variables, constants, or expressions (described^ 
below). The result of such an operation is a string consisting of stringl followed by 



used^hsideii 



string 1 + s&wff 2 is a string expression: it ._. . 
statement (like a print or name-it statement). A strin 
the parentheses of a string function. 




Practical String Surgery 

(for Graduates of "String Surgery in Your Spare Time ) 

Now let's get back to the neglected, but not forgotten, hero. He felt that he was 
just getting close to cracking the Automatic Censor code wide open when his 
supervisor, an anonymous-looking crat named NOBODY, began watching him 
more closely than usual. 

At first, 7E thought it might just have been the cup of cocoa he spilled on 
NOBODY'S new shirt when he tripped over the extension cord that he had run 
across the floor to power the Computer. He finally decided, however, that he 
better do something to get back into NOBODY's good graces again or he might be 
breaking rocks instead of codes. 

He suddenly found his chance one day when he was given some lines to censor: 
In the immediate mode, type 
P* = "LONG LIVE SCRUBDEK" 

According to the supervisor, the obvious offender was SCRUBDEK, which started 
at position 11. To put it more positively, the first ten letters of P$ were acceptable. 



I names are cottnion among 



'■, crate. 
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Agent 7E eliminated the problem (and gained himself a promotion) this way: 
(Type in as well.) 

P$ = LEFT$(P$ > 10) + "NOBODY" 
PRINT P$ 

That would turn any crat's head! 

Program (Do It Yourself #18-1). With your new skills, add to your DIYP #17-2, 
so that every time SCRUBDEK is located, it is replaced with the string NOBODY. 



After you're done, check our answer in the Appendix. 

Meet the automatic censor . . . 

Type in the following program and RUN it. It's rather long, so you may need to do 
some debugging of typing errors before it'll perform. 

NEW 

10 CLEAR 1000 

15 DEFINT A-Z 

25 DIM k<256> 'K< ) STORES DELIMITER POSITIONS 

30 CLS 

40 PRINT "MEKLOUAKIAN OFFICIAL AUTOMATIC CENSOR ♦" 

50 PRINT "TYPE IN A QUOTATION MARK t THEN THE TEXT*" 

G0 INPUT P*: S1$=P$ 

120 S2*=" M : SP=1: KT = 0: K<0)=0 , , „ , , 

125 GOSUB 1000 :i$^W r a*?*:* g - 

130 IF SF = THEN 200 

135 KT = KT+1: K(KT)=SF 'KT = # OF BLANKS t K( )=POS'N 
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140 SP = SF + S4: IF SP>S3 THEN 200 'END OF TEXT 

145 GOTO 125 

200 K(KT+1 )=S3+1 'END OF TEXT MARKER 

210 FOR 1 = 1 TO KT+1 

220 IF K( I)-K( 1-1 ) <> 5 THEN 290 

230 S2$= n ****": SC=4: SF=K(I-1)+1 

240 GOSUB 2000 

230 NEXT I 

300 IF S3<8 THEN 400 

305 SP=1 

310 S2$= n SCRUBDEK" : GOSUB 1000 

320 IF SF = THEN 400 



330 S2$="IM0B0m 



SC = 8: GOSUB 2000 



340 IF SR<B4 THEN 400 

350 SP = SF+1: GOTO 310 

400 CLS: PRINT "AUTHORIZED TEXT FOLLOHS ♦ * ♦ ": PRINT SI* 

420 END 

1000 ' INSTRING SUBROUTINE 

1080 SF = 0: S3 = LEN(S1$) : S4 = LEN(S2$) 

1090 IF S4>S3-SP+1 THEN PRINT "PARAMETER ERROR" : RETURN 

1100 SL = S3-S4+1 

1110 FOR SI=SP TO SL 

1120 IF MID$(S1$> SI t S4)=S2* THEN SF = SI: SI=SL 

1130 NEXT SI 

1140 RETURN 

2000 ' MIDSTRING REPLACEMENT SUBROUTINE 

2070 S3=LEN(S1$> : SR=S3-SF-SC+1 

2080 IF SF<1 OR SR<0 THEN RETURN 

2090 S1* = LEFT$(S1$ * SF-1 ) +S2$ + RIGHT$ ( SI* f SR) 

2100 RETURN 



teirs to he cfefe^ tern 
chitige the ne 



Alter you get it working be sure to save 
Wll use it in the iiext ciiapteri 



0* Chapter Checkpoint #18 

1. In order to link two strings, you need to use the 



operator. 



2. Just for review, can you list the four categories of DATA? 

1 



2. 
3. 

4. 
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Assault on the Automatic Censor 

Never underestimate human ingenuity. Agent E3 finally broke through. Much 
to the consternation of some perplexed Meklovakian crats, the newspapers and 
radio reports were full of unauthorized words. The population was in an uproar. 

What Agent 4 (a.k.a. 7-3) found out was that by placing any kind of punctuation 
before or after a four-letter word, he could get that word past the censor. 

RUN the program again, and try a line like this: 

"L0NG-LIVE-SCRUBDEK--D0WN-WITH-CEN50RSHIP! " 

Furthermore, our man even found a way to get the taboo name, SCRUBDEK, past 
the censor! 

You see, whoever programmed the Automatic Censor made a small but devas- 
tating oversight. He was so used to seeing: 

SCRUBDEK 
scrawled on walls and buildings throughout the city that he never stopped to 
think about the following possibilities: 

scrubdek 

Scrubdek 

ScrubdeK 

SCRUbDEK 

sCrUbDeK 

all of which are, to a crat, just as odious as SCRUBDEK. 



I normally ajapear. 




cant store lowercase letters in a 
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though when the string is 
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RUN the Censor program from the last chapter and try typing in this line: 



"I-LIKE-scrubdek" 



Escalation in the War against Words 

The Meklovakian officials weren't about to give up. They located a promising 
young student named Hank from the Meklovakian hamlet of Broadaxe, and 
sent this willing lad to the vaunted halls of the Institute for Forensic String 
Surgery. 

After a full two years of research and experimentation on live strings, Hank 
came back with the listing for a new program tucked in his knapsack. Agent 7, 
who had passed the two years in uncensored bliss, held his breath. The press 
murmured nervously, and broadcasters mouthed their stories mindlessly. 
All dreaded the installation of the new Automatic Censor. 

Add the following lines to your Automatic Censor (some replace existing lines): 

20 DIM K$ (255) ' K$ () STORES DEL IMI TER I MAGE 

45 PRINT "BROADAXE UERSION--YOU TYPE IT IN--I CUT IT UP" 

70 FOR 1 = 1 TO LEN<S1$) 'CHANGE LOWERCASE TO UPPERCASE 

75 S2$ = MID* (SI* » I t 1) 

80 IF 52$ < CHR$(S7) OR S2$ > CHR$( 122) THEN 95 

85 52$ = CHR$( ASC(S2$)- 32) 

90 SF = I : SC = 1 : GOSUB 2000 

95 NEXT I 



;' •'./;" ..•_ .'• ■■=.'_ -•;._ i 



'CLEAR OUT K$( ) 



100 FOR 1 = 1 TO 255: K$( I ) = "" : NEXT I 

1 1 DATA " " t " * " t " 5 " t " ♦ " t " ! " t " ? " t " - " i "0 " 

115 READ S2$: IF 52$ = "0" THEN 190 'CHECK ALL DELIMS* 

120 SP = 1 

130 IF SF = THEN 115 'GET NEXT DELIMITER 

135 K$(SF) = S2$ 

140 SP = 9F + S4: IF SP > S3 THEN 115 'END OF TEXT 

145 GOTO 125 

190 KT = 0:K(0)=0 'KT COUNTS BLANKS # K(0> IS ALNAYS ZERO 

192 FOR 1 = 1 TO 255 

194 IF K$(I) <> "" THEN KT = KT + 1 : K < KT ) = I 

196 NEXT I 



I Model I tuse& Without ^ while 






colonies who were anti-freedom d£the press, 



See Appendix B, sample program #5, for the com- 
plete program listing. 



line IWh The first DATA item is a single blank 
inside quotes. 



Line 194: is compared with the null string. There 
are no spaces between the double quotes: '•*". 
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Now RUN it. Try to get contraband text past the censor — use the tricks that 
worked with the old censor. 

Program Analysis (Do It Yourself #19-1). Study lines 100 to 196 and figure 
out what's happening. (Programmer Hank was good enough to leave a few 
explanatory remarks in the listing.) 

1. What is the purpose of all those DATA items? Try taking out a few of them and 
see if the program suffers for it. (Don't take out the "0"; it's just an end-of-list 
indicator.) 

2. The censor can still be fooled. (Did you try all the punctuation and other 
special symbols as "camouflage"?) Make a few simple additions to the DATA 
list to make the program even more rigorous. 

3. What does the array K$( ) store? You might want to put a STOP statement 
right after line 145, and then print out the entire array. 



The ASCII Code and How to Break It 

What about lines 70-95? The remark in line 70 says "CHANGE LOWERCASE TO 
UPPERCASE." And line 80 uses the < and > operators with what appear to be 
string operands. What's it all about? 

If you haven't yet CSAVEd the Broadaxe version of the Automatic Censor, do it 
now. Then erase it from memory, and type in this little one: 

10 CLS 

20 FOR I = 32 TO 127 

30 PRINT "CODE" * I t "ASCII CHARACTERS 5 CHR$( I ) 

40 IF 1-31 <> INT ( (1-31) / 10 ) * 10 THEN S0 

50 INPUT "PRESS <ENTER> TO CONTINUE" 5 X: CLS 

S0 NEXT I 

Now RUN it. You'll see a table of codes and ASCII (pronounced ASK-ee") charac- 
ters. This method of assigning a number to each character allows the Computer 
to represent text in terms of numbers. In fact that's the only way it can store text. 



When you run it, be prepared for a wait of up to a 
mnWite or so — erats never mme fast, you know! 









RUN the program again and notice that nothing is 
displayed for code 32. Actually, a blank space is 
printed, since code 32 represents a blank in the ASCII 
code. Prove it? Type in this immediate line: 

PRINT '»>" * CHR$<32) i "<" 
the space in >< was put there by CHR$<32). 

By the way , ASCII stands for American Standard Code 
for Information Interchange. "AAW. . " (Short for 
Aren't Acronyms Wonderful.) 
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Of course, you can ignore this fact most of the time, and proceed as if "LONG LIVE 
SCRUBDEK" and other strings were really tucked away in the Computer 
somewhere . . . 

TRS-80 has two functions, ASC and CHR$, for going back and forth between codes 
and ASCII characters. In the program you just entered, the CHR$ function takes a 
code and returns the ASCII character associated with it. 

To see ASC in action, type in this program: 

NEW 

10 INPUT "TYPE IN A LETTER OR NUMBER" 5 C$ 

20 PRINT "THE ASCII CODE FOR THAT CHARACTER IS" 5 ASC(C$) 

30 PRINT 

40 GOTO 10 

RUN the program, and try typing in various characters. Be sure to compare the 
results of typing unshifted and shifted letters, for example, CD and (SHIFT) (A). 










' ; ^/^ft^ •:,'?• ' ^ v-^> ^> ' ^; -^ V^^fe-S : ^ ■ ^;^.- ?:^:^ V • iv^i- ■ >; -i/fe- ^ > S;;^^;-%iv^SM < : -• : ^^;^: : ^ ;'■ V; •. -••• ; ^v :• •"■ "■■ : \ . "'•" ; :.-- : ;X-.' . •"' A : '\ • v '•> 



For Model I TRS-80 Owners Only: 

Did you notice that the alphabet characters were dis- 
placed twice, once with codes 65 to 90, and again with 
co^OT^ 

case alphabet, but as we mentioned previously, un- 
modified Mode! I TRS-80's show only uppercase (capi- 
tal) letters. IJyOu had theEa^o Stack lowercase mod- 
ification installed, or connected an upper- and lower- 



Now you've probably got some ideas on what's going on in lines 70-95 of the 
Broadaxe Automatic Censor. 



When faced with the problem of catching words like: 
scrubdek Scrubdek ScrubdeK SCRUbDEK 



sCrUbDeK 
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Hank decided against checking for every possible combination of upper- and 
lower case characters that might spell the taboo word. That would have been a 
brute-force, plodding approach, and at the Institute for Forensic String Surgery, 
such methods are rarely used. 

Instead, he chose a more direct (and more brutal) solution: change every lower- 
case character to uppercase. 

Of course, such a change would have a tremendous impact on the literary world 
(what would happen to e. e. cummings' poems?). But perhaps that was an 
appropriate punishment for those who had used lowercase input to circumvent 
the original Automatic Censor. . . 

Changing lowercase to capitals is quite simple. If you look at the ASCII table in 
Appendix B, you'll see that every lowercase character has a code that's equal to 
its uppercase counterpart's code plus 32. For example, the code for "A" is 65; for 
"a", 65 + 32 = 97. 

Now all that's necessary is to find all characters from "a" to "z", and change 
them to the codes for the proper character in the "A" to "Z" set. 

Line 75 looks at each character in the input string, one at a time. Line 80 checks 
to see whether the character under scrutiny (S2$) is between ("a") 97 and ("z") 122. 
If it is, line 85 sets it equal to its uppercase counterpart. Line 90 then calls the 
midstring replacement subroutine to put in the new uppercase character. 

Line 80 deserves a little more attention: 

IF SZ* < CHR*<97) OR S2$ > CHR$< 122) THEN 95 
The line reads, "If S2$ is less than ASCII character 97 or S2$ is greater than ASCII 
character 122 then go to line 95." 

How can one string be "less than" or "greater than" another? RUN this program 
and you'll soon get the idea. . . 

NEW 

10 INPUT "TYPE IN ANY WORD" i A$ 

20 INPUT "TYPE IN A DIFFERENT WORD" ! B* 

30 IF A$ = B* THEN 20 

40 IF A$ < B$ THEN F* = A$: S* = B$: GOTO 60 

50 F* = B$: 5$ = A* 

60 PRINT F$i " PRECEDE5 "! 5*! " ALPHABETICALLY" 

70 PRINT: GOTO 10 
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You don't have to type in words — any sequence of characters is okay. (Remem- 
ber to start with a " if you want to include commas or colons in a string.) 

Here are some suggestions on strings you might type in: 
"AAA WRECKING SERVICE" and "aaa WRECKING SERVICE" 
"100" and "2" 

"SCRUBDEK" and "SCRUBDEK THE PATRIOT" 
"A" AND "a" 




(C 



#19-2 

[; Strings can be ci 

Operator 

< 

> 

<> 




with the following operators: 



Precedes alphabetically 
Follows alphabetically 
Is the same as 
Is not the same as 
Precedes or is the 

same as 
Follows or is the 
If same as 



Comparison is made character-for-character oh the basis of each character's ascii code; a 
character with a lower code is precedent over a character with a higher code. 

During string comparison, when a non-matching character is found, the string containing 
the lower-coded character is considered to precede the other string. 

If no non-matching character are founds the shorter string is precedent. 
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Program Analysis (Do It Yourself #19-2.) The following program inputs 15 
words, places them in alphabetical order, then prints out the alphabetized list. 

100 CLEAR 300 

110 DIM A$( 15) 

120 FOR 1 = 1 TO 15 

130 PRINT "TYPE IN WORD #"5 15 

140 INPUT A$( I ) 

150 NEXT I 

180 T = 'WHEN T=l t A SWAP HAS OCCURRED 

170 FOR 1 = 1 TO 14 

180 IF A$( I ) < A$( 1 + 1 ) THEN 200 

185 'THE NEXT LINE SWAPS THE TWO STRING ELEMENTS 

190 X$ = A$( I ) : A$( I )=A$( 1 + 1 ) : A$( 1 + 1 ) =X$ 

195 T=l 'SET T SINCE A SWAP OCCURRED 

200 NEXT I 

210 IF T=l THEN 1S0 'REPEAT UNTIL NO SWAPS ARE MADE 

215 CLS 

220 PRINT "HERE IS THE ALPHABETIZED LIST" » 

230 FOR 1 = 1 TO 15 

235 PRINT 

240 PRINT A$(I) t 

250 NEXT I 

2B0 GOTO 2S0 

Type in the program, run it, figure out what's happening. Notice the use of T as a 
"flag" to indicate when a "swap" has occurred. For further comments, see 
Appendix A. 

Program (Do It Yourself #19-3.) No more tinkering with censorship! Put 
some of your new knowledge to good use by writing a "copy editor" program that: 

1. Inputs text. 

2. Breaks it up into its component sentences and words. 

3. Prints out: 

a) The number of sentences. 

b) The length of each sentence. 

c) The average word length (in letters). 

d) The average sentence length (in words). 

4. Advises the user to use longer/shorter words/sentences. 
(You decide what's optimum for each!) 



Most of the logic you'll need is contained in the 
Broadaxe version of the Automatic Censor, 



This program will probably he rather slow in 
giving you your "critique." 



207 



Give it a good try. If you can't get it working, don't be too discouraged. There's 
always a position waiting for you in Meklovakia! 

Be sure to look at our answer in Appendix A. 

Program (Do It Yourself #19-4). Write a program that: 

1. Inputs and stores 10 text strings, like this: 

TYPE IN YOUR TEXT 
After you type in the text and press (ENTER) , the program prints a message like 
this: 

THAT WAS ENTRY *1 • YOU HAYE 9 ENTRIES LEFT* 

2. Prints out the strings one at a time, asking the user if any changes are 
needed. Like this: 

HERE IS EN TRY * 1 « DO YOU WANT TO CHANGE IT? (Y/N) 
If you type Y (ENTER) , the program will ask you: 

TYPE IN THE POSITION WHERE THE CHANGE STARTS 
Then: 

TYPE IN THE NUMBER OF CHARACTERS TO CHANGE 
Then: 

TYPE IN THE NEW TEXT 

3. Makes the specified changes. 

4. Prints out the entire corrected text. 

Trying this one will teach you a lot. Don't forget to look at our answer in 
Appendix A when you're done. 

Epilogue: Who Won the War Against Words? 

Agent 7E realized he had finally met his match, but, on the other hand, Hank 
had come to the same frustrating conclusion. 

For months, they had stood side-by-side, unknowingly battling each other but 
becoming great pals in the meantime. Finally E3 decided on one final, bold 
stroke that would hopefully solve the problem — he approached his friend and 
offered to take him to the New World. Surprisingly, Hank agreed! 

Oh no! He hadn't changed his political beliefs. Instead, he opted for something 
far more important — a life that offered ball-point pens, Levi's, and Big Mac's. 
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B* Chapter Checkpoint #19 

1. ASCII (pronounced ASK-ee) is a: 

a. request in Missouri-ese. 

b. code for representing text in terms of numbers 
c ; way to delete characters 

2. Match each function with its output: 

a. CHR$ 1. code 

b. ASC 2. string 

3. If the code for "3VT (uppercase) is 77 then the code for "m" (lowercase) is 



4. One practical application of ASCII coding system is that it allows TRS-80 to put 
lists of words in order. 
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Part III 

Exploring the Territory 

• Advanced PRINT 

• Graphics 

• Special Keyboard Techniques 

• Cassette and Printer Operations 

• Memory Addressing 

• Error-Handling 






^yky^wmm 






ISP 




as 

■1 



4 



IMP 



212 




mmm 



iipitlli 


















Advanced Print 

By now, you've probably come to take PRlNTing for granted: you tell TRS-80 what 
you want printed, and it takes care of where to print it, when to start a new line, 
what to do if it reaches the bottom of the display, etc. 

In this chapter, we're going to explore ways to take a more active part in how 
TRS-80 outputs to the display. You might say we're going to turn off the automa- 
tic pilot and fly manually. As you'll see, we can do much more this way. 

But first, we'll recap what we've learned already. 

Recap (Do It Yourself #20-1). Answer these questions. RUNning the programs 
will help you come up with the answers. 

A. How many character positions (columns) are there to a line on the screen? 
RUN this program to number each column: 



10 CLS 
20 PRINT 
"0 



1 



B" 



30 PRINT "012345678901234567B901234567B901234567890 

12345678901234567890123" 
40 PRINT "IB LINE THREE BLANK? WHY?" 
50 GOTO 50 

B. Add a trailing semi-colon to line 30 and RUN the program again. Now there is 
no blank line. . . What happens each time TRS-80 prints a character in the 
rightmost column of the display? 







Note: In line 20, the digits in quotes are spaced ten 
columns apart. (There are nine spaces between "0" and 

In line 30, there are 64 digits inside the quotes. When 
lines 10 and 20 are printed, they sh 
numbers when read 



Mlli: 



CoLlO 



Col. 20 etc. 



012345878901234567890 
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C. How many PRINT lines are there on the display? RUN this program to number 
them: 

10 CLS 

20 FOR I = 1 TO 15 

30 PRINT I 'NUMBER FIRST 15 LINES 
40 NEXT I 

50 PRINT I 5 'BOTTOM LINE IS A SPECIAL CASE' (PREVENT SCROLL) 
60 GOTO S0 'SAVE DISPLAY 
Why is the bottom line a special case? 

D. How many characters (including blank spaces) does the Computer actually 
output to the display when it prints a number? RUN this program: 

10 CLS 

30 PRINT "0. ♦ ♦ *5. ♦ ♦ *0* ♦ ♦ ♦S* ♦ ♦ .0* • ♦ *5» ♦ ♦ *0i ♦ ♦ ♦ S" 

35 READ A: IF A = THEN END 

40 PRINT A5 

50 GOTO 35 

S0 DATA 1*10* 5*3* -l*-IG>-5 + 3*-5> -5 * 30000 * 000 ♦ 1 * 

In general, what can you say about BASIC'S procedure for printing out 
numbers? 

E. How about strings? How many characters (including blank spaces) does 
BASIC actually output to the display when it prints each of these string 
values: "HELLO"; 'TWO WORDS"; "1"; "-1"? (Hint: use print lists with semi-colons 
again.) 

F. What's the maximum number of digits BASIC will print out for a single- 
precision number? a double-precision number? What happens to leading 
zeros (zeros to the left of the first significant digit)? What happens to trailing 
zeros (zeros to the right of the least significant fractional digit)? 

G. How can you predict where printing will start? Try out this program: 

10 CLS 

20 PRINT "AFTER CLS* PRINTING STARTS HERE" s PRINT 

30 PRINT "THIS PRINT STATEMENT ENDS WITHOUT PUNCTUATION" 

40 PRINT "PRINTING RESUMES HERE" : PRINT 

50 PRINT "THIS PRINT STATEMENT ENDS WITH A ' 5 '" » 

B0 PRINT "PRINTING RESUMES HERE": PRINT 

70 PRINT "THIS PRINT STATEMENT ENDS WITH A ' * '" t 




fcTiry these iiamediate lines: 
PRINT 1*2345878! 
PRINT 1*2345B789012345S789* 
PRINT 000001 * 1V.« 



80 PRINT "PRINTING RESUMES HERE" : PRINT 
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H. Ever notice that the cursor disappears when you type RUN? Or that it 
reappears during an INPUT? How can you predict where the cursor is going to 
reappear? Try this: 

10 CLS 

20 PRINT "THE CURSOR IS INVISIBLE NOW" 
30 FOR T=l TO 9S0:NEXT T 

a0 INPUT "IT RETURNS FOR AN INPUT (PRESS <ENTER>>"! X 
50 GOTO 20 
Be sure to compare your observations and answers with ours in Appendix A. 

"Advanced printing" refers to controlling where things are printed and how 
they are printed. Perhaps the last D.I.Y. gave you some ideas about why you 
might want to control these things. Let's explore one application that might call 
for some advanced printing. 

Printing Tables of Numbers 

Suppose we have a bunch of numbers to display. The numbers might represent 
anything from dollars to inches of rainfall. Our goal is to display the numbers in 
a neat table. 

For convenience, we'll generate random sample numbers with RND (random), 
and we'll try several ways of outputting them in columns. The first and easiest 
way is PRINT with a trailing comma. 

RUN this program: 

10 CLS 

20 PRINT "COLUMN A" » "COLUMN B" * "COLUMN C" . "COLUMN D" 

30 FOR I = 1 TO 5S 

40 X = RND(99) + RND(0) 'GENERATE SAMPLE NUMBER 

50 PRINT X» 

60 NEXT I 

70 GOTO 70 'SAVE DISPLAY 



215 



Line 40 generates random numbers between 1 and 100, as follows: RND(99) 
returns an integer from 1 to 99, and RND(0) returns a fraction between and 1. 
The sum of these two random numbers will be between 1 and 100. The trailing 
comma in line 50 "automatically" creates four columns of figures. 

Your display will look something like this (of course, your numbers will most 
likely be different): 



COLUMN A 

77.0575 

4.6652 

43.0401 

55.4142 

85.1913 

17.4471 

16.4292 

84.0569 

15.4216 

31.2865 

44.5865 

1.9288 

36.092 

17.5269 



COLUMN B 

13.0247 

15.3687 

39.2367 

94.2629 

17.1285 

13.0616 

14.337 

26.7765 

75.2488 

64.1694 

18.0006 

35.7518 

36.4791 

18.7856 



COLUMN C 

57.1814 

86.5021 

95.0283 

92.8904 

47.1405 

40.2529 

15.6235 

22.0702 

75.3328 

1.5728 

82.8738 

18.7411 

64.602 

88.3055 



COLUMN D 

47.1631 

93.5092 

48.9092 

39.8335 

84.5491 

90.6199 

99.4069 

46.5677 

50.5568 

81.126 

8.82325 

46.494 

10.7802 

64.621 



Neat, isn't it? But suppose we want more columns than that? Or suppose we 
want to position them differently. This is where the comma bows out to make 
way for a much more versatile print feature 

Program (Do It Yourself #20-2). Try the program with a trailing semi-colon 
instead of a trailing comma in line 50. How does that look? Not too good? How 
about printing some blank spaces after each number (like this: " "). 

The TAB Function 

To see the TAB function in action, type in these statements (immediate mode): 

PRINT TAB( 10) "COLUMN ONE" 5 TAB(40) ! "COLUMN TWO" 
PRINT "NAME" 5 TAB (20) 5 "AGE" ! TAB (30) ; "PHONE NUMBER" 
PRINT TAB(5) i "5" » TAB(25) 5 "25" ! TAB(50) 5 "50" 
PRINT TAB(5) . 5 i TAB (25) i 25 5 TAB (50) i 50 
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After working through the recap (DIY 20-1), you can probably understand why 
the last two PRINT statements produce slightly different results. 



UFO#20-1 

tab is a print function for positioning the cursor to a column position 
so that the next item printed will start there. The general format for 




the lower lines, 

TAB(128+ 

If the cursor is 
Note to 



value from zero to 255. The columns on the video 
sc 

cursor to column 4 two lines below the current cursor position. 




■ v^$l!i|^^ 



onthesameli 



Remember, whSn the strter "5* is rmrtted, ft takes up 
exactly one space; but when Renumber 5 is pi^ed it 
takes up three spaces (a leading blsuik followed the 
digit, followed by a trailing space. And so on with the 
other numbers. 



Now let's use TAB to revise the 0-to-l00 number generator. Instead of four 
columns, we'll use five. The columns will start at positions 0, 10, 20, 30, 40 and we'll 
place headings over the center of each column: 

10 CLS 

20 PRINT TAB<5) ! "A" ? TAB (15) 5 "B" 5 TABC25) ; "C" i TAB (35) ? 

"D" » TAB(a5) 5 "E H 
30 FOR I = 1 TO 15 'DO 15LINES 
40 FOR J = 0TO40STEP 10 

50 X = RND<99) +RND(0) 'GENERATE SAMPLE NUMBER 
G0 PRINT TAB (J) » X! 'NOTE TRAILING SEMI -COLON 
70 NEXT J 

80 IF I = 15 THEN 100 'NO NEW LINE IF AT BOTTOM OF SCREEN 
90 PRINT 'FORCEANEWLINE 
100 NEXT I 
110 GOTO 110 

Notice the TAB value doesn't have to be a numeric constant — it can be any 
numeric expression. This means a single TAB(n) function in your PRINT state- 
ment can generate any number of TAB positions. 



SavetMspx^gramonta^ 
im*lifyiBgitm^ 
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This produces a table of 5 * 15 = 75 numbers: 



A 


B 


C 


D 


E 


40*0325 


18*0714 


39*5522 


18*5358 


70*7737 


83*5779 


41* 1408 


8*27347 


40*2798 


40*4357 


80,295(3 


71*787 


29*821 


95*8808 


98*8109 


48*7733 


27*0908 


12*4457 


22*853 


5*9759 


88*7038 


45*4802 


14*4801 


80*8854 


67*6988 


5*55083 


23*0423 


38*2392 


94*0277 


94*1404 


33*8815 


13*5215 


1 *07752 


88*9497 


16*6315 


83*4838 


81 * 1482 


80*4958 


77*818 


24*5434 


42*984 


29*5921 


11 *338S 


49*2858 


49*1708 


15*85 


44*9827 


70*7827 


81*8365 


84* 177 


92*8315 


39*0928 


77*9508 


85*2778 


5*95834 


82*9412 


85*9255 


11*1537 


18*5282 


51*0207 


17*0939 


54*8032 


5*39804 


68*5905 


92*2114 


58*7215 


23*5987 


79*9588 


95*9554 


57*4005 


88*8248 


6*97248 


20*4248 


46*8294 


18*9549 



Note: we can control the column position during video output. But examine 
the table closely. Notice that all of the numbers are "flush left", that is, they are 
aligned according to their left-most digit. For more numeric tables, we'd rather 
have the numbers aligned according to decimal position, so that the ones, tens, 
hundreds, etc., line up. 

Notice also that the numbers are printed with varying degrees of apparent 
precision. They don't all contain the same number of digits to the right of the 
decimal point. In many applications, this too would be a fault. 

For example, suppose the numbers in our O-to-100 table represent average 
monthly rainfall figures, in inches or cubic centimeters, taken from around the 
country. The problem is, the rain gauges measure only down to tenths of a unit. 
Many of these averages contain far too many digits of precision. 

This is a common problem: through computations such as division and multi- 
plication, we end up with more apparent precision than we started with. 

In such cases, we want to override TRS-80's standard method of displaying 
numbers. We can do this with a special form of PRINT and we'll cover that in the 
next chapter. 
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Graphic Demo. (Do It Yourself #20-3). This program uses TAB to plot points 
on the screen. The sine and cosine functions make nice curves, so we'll use them. 
You don't have to know trigonometry to appreciate the results of this program; 
just type it in and RUN. 

NEW 

10 CLS 

20DR = 3* 141593 / 180 'DEG ♦ *DR=RAD I ANS 

30 FOR ANGLE=-180 TO 179 3TEP 6 

40 X = ANGLE*DR 'CONVERT DEGREE3 TO RADIANS 

50SI*SIN<X) : C0=C0S(X) 

60 BC-S 1*30 + 32: CC= CO* 30 + 32 ' COLUMN POSITIONS 

70MN = ~(SC<CC)*SC-(CC<=SC)*CC 'MN = MIN <SIN»C0S> 

80MX = -<SC>CC)*SC-(CC> = SC)*CC 'HX=MAX (SIN, COS) 

90 PR I NT TAB (MN) 5 "*" 5 TAB (MX) 5 n # M 

100 NEXT ANGLE 

H0GOTO30 

The program plots two points per line, SIN(X) and COS(X), by tabbing over an 
amount which is calculated from SIN(X) and COS(X). Lines 70-80 determine the 
minimum and maximum (smallest and largest) of the pair (SIN(X), COS(X)). After 
looking at line 90, can you see why we need to know the minimum and max- 
imum? (See comments in Appendix A.) 




(Be sure 
Wellbeusingitagi 



am. 



H|||| 70 and 80 use "logical ex] 

Sliiliiilpw 

basic Reference 




B" Chapter Checkpoint #20 



1 . Which statement will print an asterisk in the fourth column of the current 

line? 

a. PRINTTAB<3) 5 "*" 

b. PRINTTABU) ? "*" 
C PRINTTAB(5) i "*" 
d. PRINTTAB<4) t "**' 

2. Another way to vary column spacing across the Display is to vary the use of 
the punctuation marks, and 




219 




mm 
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PRINT USING 

The idea behind PRINT USING is to give TRS-80 a custom format to use for printing 

out the numbers. In this case, our format would tell the Computer to print all the 

numbers with the fractional part rounded to one digit. For example, we'd want 

23.4888 to be printed as 23.5. Just for consistency, we'd want 12 to be printed as 

12.0. 

In general, we want our numbers printed in this format: 

where each # stands for a digit, and the . shows where we want the decimal 

point. 

Type in these statements (use the immediate mode): 

PRINT USING n *#.# M ? 23.4888 
PRINT USING "##♦#" i 12 

The new addition to PRINT consists of the word USING followed by the ##.# 
format. Notice that neither of these was actually printed. However, both num- 
bers were printed using that format! 23.4888 was rounded to 23.5, and 12 was 
displayed with a zero to the right of the decimal point. 

Now try these statements: 

PRINT USING "#* M 5 12*4888 
PRINT USING "*#" 5 12 

Getting the idea? The characters inside the quotes tell your Computer exactly 
how to print the numbers. Used in this way, # and . are special "field specifiers" 
indicating respectively the number of digits to print and the position of the 
decimal point. There are many others you can use in a PRINT USING statement; 
well go over each of them in this chapter. 



This chapter continues our exploration of ways to con- 
trol the format in which data is printed. 

In particular , refer to the table of numbers at the end of 
Chapter 20. We want to control the number of fraction- 
al digits printed ... 
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print using lets you control Jthe format of output to the video display. 

PRINT USING fbnmt; tiem-list { 

format tells TKS-80 what format to use in printing each of 

You've seen what happens when the number to be printed contains more digits 
to the right of the decimal point than are called for in the format string: the 
number is rounded to the specified number of digits. * 

You've also seen what happens when the number contains fewer digits to the V 

right of the decimal point than are called for in the format string. TRS-80 adds 

zeros to fill the required number of decimal places. J 

What about the case where the number contains fewer digits to the left of the 
decimal point than are called for? For example, type in these lines: 

PRINT USING "###♦#» 5 123 j 
PRINT USING -"#««♦ #" 5 12*3 

PRINT USING "###♦#" 5 1 ,23 i 

PRINT USING "###♦#" 5 -1,23 j 

Look closely at how the numbers are aligned on the display: 

123*0 j 

12*3 

I 

The first number has the specified number of digits to the left of the decimal 

point. Therefore, it is printed exactly as is. TRS-80 didn't even insert a leading j 

space in front of the number, as it does with an ordinary PRINT statement. In I 

printing the second, third and fourth numbers, TRS-80 inserts enough space in 

front of the digits to fill the field. | 
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The final case to consider is when the number contains more digits to the left of 
the decimal point than the format allows for. To see what happens, type m this 
line: 

PRINT USING "**.*" i 123.45 

Z123.5 
TRS-80 went ahead and printed out the entire number, but it inserted a % sign to 
warn that the number did not "fit" into the specified format. 

Try this one: 

PRINT USING "**.«" 5 -12.345 

1-12.3 
The number didn't fit the format because the minus sign takes up a space, too. So 
TRS-80 put a "%" in front of the number as a warning, but printed the entire 
whole-number portion anyway. The fractional portion was rounded to suit the 
format requirements. 



UFO #21-2 

In print using statements, the format tells exactly how many charfcni-v 
oj ters (including blank spaces, decimal point, minus sign, etc.) are to 
be taken up by the number when it is displayed: 
• To fill the required spaces to the right of the decimal point, trs-bq 
adds zeros. 

• To fill the required spaces to the left of the decimal point, trs-so adds spaces. 

• If there are too many characters to the right of the decimal point, trs-80 rounds the 

• "/there are too many characters to the left of the decimal point, trs-80 prints all of them 
but prefixes a warning "%" to the number. 

Program (Do It Yourself #21-1). Modify the "average rainfall" program (the 
0-to-100 table in Chapter 20) to print out numbers rounded to one-tenth of a unit 
(one digit to the right of the decimal point). Allow for numbers that contain up to 
three digits to the left of the decimal point. 

Important Note: To use both TAB and USING in a single PRINT statement, you 
must do the TAB first. For example: 

PRINT TAB(15) i USING "**.*»" > 1.2345 
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The output from D.I.Y. 21-1 should have looked something like this: 



A 


B 


C 


D 


E 


89.3 


61.8 


86.9 


87.4 


12.6 


90.7 


11.5 


87.8 


38.6 


11.5 


9.8 


4.0 


42.9 


92.5 


69.4 


42.5 


21.4 


69.8 


84.7 


49.5 


44.3 


83.1 


90.3 


53.4 


7.2 


39.9 


26.8 


21.2 


74.9 


51.1 


75.9 


5.2 


38.5 


97.7 


21.2 


91.2 


63.5 


63.7 


96.6 


55.3 


35.5 


97.6 


32.8 


7.3 


16.5 


59.9 


5.6 


40.9 


89.9 


67.1 


94.0 


87.9 


14.3 


53.3 


25.9 


68.0 


70.4 


9.3 


21.3 


32.5 


13.7 


37.5 


56.2 


21.0 


21.5 


1.1 


99.7 


10.9 


44.7 


74.7 


72.9 


60.6 


58.2 


95.0 


82.0 



So, we've controlled the precision of the output^-but notice something else: all 
the numbers are now aligned according to the decimal point. This makes the 
output look much neater. For displaying tables of dollars and cents, this would 
be very important. 



In ihe previous display, the numbers were printed 

^li^l^^eriib the '. 



PRINT USING with a List of Variables 

You can list several variables to be printed according to the format string. You 
can use either semi-colons or commas to separate them. However, TRS-80 will not 
tab over when it hits the comma. It will treat it just like a semi-colon. The same 
goes for trailing commas or semi-colons; either will cause TRS-80 to start the next 
printing immediately after the last character printed. 
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Type in this line: 

PRINT USING "»»*«" i 123 » 456 » 789 

This prints out a line like this: 

123 456 789 
There is one space in front of each number, since the format string allows for 
four digits to the left of the decimal point, and these numbers require only three. 

Now this one: 

PRINT USING "«*" 5 1 1 »22 »33 

which prints out: 

112233 
This should convince you that PRINT USING does not automatically insert lead- 
ing and trailing spaces around numbers. It prints out exactly as many charac- 
ters as are called for in the format string. 

UFO #21-3 

You can't use commas in print using statements to causi 
zones. If you use a comma it will have the same ■* 
semi-colon. When trs-8o prints a list of 
a using format, it starts at the beflinnino, of i 
a new item in the list. 








^K^^^^w 



USING Meets the Better Business Bureau 

So far, USING has enabled us to control how many digits are displayed when a 
number is PRINTed, and where the decimal point appears. There are many other 
things we'd like to control when printing for business applications. 

For example, in accounting tables, it's common to display financial figures with 
the sign (+ or -) to the right of the number instead of the left. Often only 
negative amounts ("debits") are shown with a sign. In some cases, we want a 
sign in front of every number, positive or negative. 
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In our previous USING examples, positive numbers were displayed without any 
sign, and negative numbers had a leading sign. You can select either of these 
formats by careful placement of + and - signs inside the format-string. 

For trailing + and - signs, place a + directly after the last # in the format 
string. For trailing - signs only, place a - directly after the last # in the format 
string. Try these examples: 



PRINT USING "##♦#+" 5 
PRINT USING "«#.*-" ; 



■12.3 t 12.3 
12*3* 12.3 



For leading +/- signs on every number, place a + ahead of the first # in the 
format string. 



PRINT USING "+*#♦#' 



■12.3 t 12.3 



. •••' .••.-.'•' .; 



M 



UFO #21-4 
r^ Tia control tepbsiti&h of + / - signs when numbed are printed 

.', aftor thai foci A £fir/laortiiw i m- • • el/tri** W»* a • V-\ k*U<-i»«v ***** :«s»U 






What happens if you place a - ahead of the first # in the format string? Well, 
you might guess it would cause a - sign to be displayed in front of each negative 
number. Go ahead and try it: 

PRINT USING "-#».*" 5 -12.3* 12.3 

What? The Computer prints this: 

-Z-12.3-12.3 
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Here's what happened: The minus sign has a special meaning in a format string 
only when it follows the last # of a numeric field. If you use it anywhere else in a 
format string, TRS-80 interprets it as a literal character. In other words, the 
Computer assumes you want that exact character inserted at that exact position 
in every value printed! 

Therefore TRS-80 inserted a - before it displayed the number -12.3. But -12.3 
requires five spaces, and your numeric field contained only four: ##.#. That s 
why the Computer prefixed the % to the number before printing it. Then TRS-80 
went on to print the second value, 12.3. Following your format string literally, it 
inserted a - before starting to print the number. 

You can try embedding other literal characters inside a PRINT USING format- 
string. For example: 



PRINT USING 



-> #*,*' 



-1 .23 



In this case, " > " (even the space after ">"), was treated as a literal 

string to be inserted before the numeric field "##.#". 



Dollars and Cents 

Now we're going to introduce a few more format specifiers which are especially 
useful for printing out financial figures: $ and *. We'll do it by way of a fantasy 
program. Type in these lines: 

NEW 

10 CLS: PRINT "***TRS-80 READI-LOAN CENTER***" 

20 INPUT "TYPE IN YOUR NAME (NO COMMAS. PLEASE)"! N* 

30 INPUT "NOW HOW MUCH * DO YOU NEED? (UP TO $9999.99) " 5 M 

40 IF M<0 OR M>9999.99 THEN 30 

50 PRINT "HMMM ..." 

60 FOR 1 = 1 TO 3000: NEXT I 

70 PRINT "LOAN APPROVED" 

80 PRINT: PRINT "PAY TO THE ORDER OF " 5 N* \ " " ! 

90 PRINT USING "«#*«.«* DOLLARS" . M 

100 PRINT: INPUT "NEXT" 5 M 

110 GOTO 10 



■■■■■■■■■■■1 
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Run the program. 

Notice we're using literal characters in the format string of line 90 to add the 
word "DOLLARS" at the end of the numeric field. That's one way to handle 
financial figures. But it won't do for most applications. Here's a better way. 

Change line 90 to: 

90 PRINT USING "$####♦##" 5 M 

Now run it again. 

For Your Own Protection (Not That We Don't Trust You) 

Run the program again, and ask for a loan of two dollars. The payout line will 
look like this: 

$ 2*00 

If this were on paper, think how easy it would be to insert a few extra digits 
between the $ and the 2, suddenly increasing the loan amount drastically. 
TRS-80 is not about to allow such a crude ploy. In fact, it offers three devices to 
prevent tampering with numeric fields: 



$$ The run-on $, which never leaves any room between the $ and the first 

digit. 
** The asterisk fill, which fills all leading blanks with asterisks 

**$ The fail-safe payout, which puts the $ just ahead of the first digit, and 

then fills any leading spaces with asterisks. 

RUN the program with each of the following versions of line 90. Be sure to ask for 
small loans like $2, to demonstrate what happens to the spaces: 

90 PRINT USING "$$»###♦## " 5 M 

90 PRINT USING "**####♦## DOLLARS" 5 M 

90 PRINT USING "**$####♦ ##" 5 M 

High Finance and the Floating Comma 

When a number has more than four or five digits, it becomes difficult to read and 
comprehend. Exactly how many is 1000000? By counting digits, we discover it is 
one million. 



. : . : ;-".' :':•'•:. : : '.;-.-:- • •.•'•>•*.;'< : 



« #*###, #**-> 



.;;^jV ;;:• ^}:^- -f^ ;# ••- KCv:-^ 





'/ : -*r Vr i 
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Such numbers are a lot easier to read when we insert commas to separate 
hundreds, thousands, millions, billions, etc: 1,000,000. 

There's a format specifier to do this: the comma. Try these immediate state- 
ments: 

PRINT USING "».**#««#»»*«" 5 1234567890. 1234567. 123 

PRINT USING "« .«»»" ! 123 . 1234 
Only a single comma is required. It doesn't matter where you place it, so long as 
it's in the numeric field. 

Program (Do It Yourself #21-2). Change line 90 of the "Readi-Loan" program 
to print a "floating comma" in all amounts exceeding 999.99. 

What Can USING Do for the Scientist? 

Science has to deal with larger ranges of numbers, from very small ones such as 
.0000000001 to quite large ones like 100000000. Scientific notation was invented to 
handle such wide ranges conveniently. "E-notation" is the Computer's version 
of scientific notation. 

The numbers above are represented like this: 



Scientific 
Notation 

lxlO 9 
1 x Id" 9 



E-Notation 

IE + 09 
1E-09 



You can force TRS-80 to print numbers in E-notation (or D-notation) by adding a 
special sequence of characters after the numeric field: four up-arrows. 

Try these examples: 

PRINT USING "#«»«.«»*"'" 1 "; 1.234. 12.34. 123.4, 1234 



'■'']<tiMlti&''i^iiJiiii pitoi to is wide «i 






■ : PR I NT USING " # >****^#St§til^|" 



ican] 



better. 



ly, you might 

Sometimes. 



weputinonetoomanyi 
me& that ektra space for a jmnus sign 



Remember, if it's a double-precision value, BASIC rep- 
resents it with a D in place of the E. 



Model HI Users: Don't forget that your Display will 
show a [ (left-bracket symbol). 



229 




Notice that every number is displayed with three digits to the left of the decimal 
point. Yet there are four # signs before the decimal point. The 4 ♦ 4 ♦ specifier has 
this quirk: you always specify one extra # position to the left of the decimal 
point. For example, if you want one digit printed to the left of the decimal point, 
and three to the right, use this format string: 

So what happens if you use just one # ahead of the decimal point? Try it: 

PRINT USING "#♦### AAAA "I 1.234* 12.34 * 123*4 » 1234 
TRS-80 prints each number with a zero to the left of the decimal point 



UFO #21^5 

;■ There are nine format specifiers to be used in conjunctiori with ttie^ 
numefi^^^ 

Positior^M d^cimatJ point ; 

trailing + /-sigh is be printed: 

After last #, causes trailing - sign to be printed for negative numbers. : 
$ Use ahead of the first # to cause a $ to be! printed ahead of the number. ; 

$$ Use ahead of the first # for a run-on $(no:spaces between Sand first 

**$ Use ahead of the first # for a run-on $ and! asterisks in all leading spaces. ;! 

(4-up-arrbw!s) Use after Afield to display number in E-format.!l«ilf use 
D-format for double-precision numbers. 

which do not haw predefined meanings terminal numeric field and are 
sd as "literals" to be inserted into the output at the specified position. 



PRINT USING for String Values 

So far we've used USING to control how the Computer outputs numeric values. 
There are times when you'd like to do the same with string values. For example, 
let's go back to the Readi-Loan program. 
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10 CLS: PRINT "***TRS~80 READI-LOAN CENTER***" 

20 INPUT "TYPE IN YOUR NAME (NO COMMAS * PLEASE) " 5 N$ 

30 INPUT "NOW HOW MUCH $ DO YOU NEED? (UP TO $9999.99)" 5 M 

40 IF M<0 OR M>9999*99 THEN 30 

50 PRINT "HMMM * . . " 

B0 FOR 1 = 1 TO 3000: NEXT I 

70 PRINT "LOAN APPROVED" 

80 PRINT: PRINT "PAY TO THE ORDER OF " 5 N$ ? " " ? 

90 PRINT USING " ###*♦## DOLLARS" 5 M 

100 PRINT: INPUT "NEXT" 5 M 

110 GOTO 10 

Suppose we want to print a payee line like this: 

PAY TO THE ORDER OF L* P. LONGNAME 
Regardless of how the name is entered, we want to print it out as two initials 
followed by the last name. To do this, we'll need to input first name, middle 
name, and last name separately. So change line 20 and add lines 23 and 26: 

20 INPUT "FIRST NAME" 5 NI$ 
23 INPUT "MIDDLE NAME" 5 N2$ 
2S INPUT "LAST NAME" 5 N3$ 

Now we want to replace line 80 with a PRINT USING statement that will print out 
o lirip like this* 

PAY TO THE ORDER OF < 1ST INITIAL). <2ND INITIAL). <LAST NAME> 

The first part is easy— we just include it inside the format string as a literal 

field: 

PRINT USING "PAY TO THE ORDER OF . . . 

Next we need to tell TRS-80 we want to display a string value, and how many 
characters to print in that value. 



li&illltl^ 



Experimentation Time 



To indicate a single-character string value, use the symbol !. For example, type 
in these lines in the immediate mode: 

N1*="J0SEPHINE" 
N2$="LEE" 
N3$="0YERHILL" 
PRINT USING " ! " 5 Nl$ 
PRINT USING "!" ! N2$ 
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The "!" specifies a string value of length one, so TRS-80 displays only the first 
character of Nl$ and N2$. 

Now a couple of examples you may have to think about: 
PRINT USING " ! " I Nl$* N2$ 

The print list contains two string variables, but the format specifies only a 
single string character. So TRS-80 uses the print list twice, once for each variable. 
Since the format doesn't include any blank spaces, both the values are packed 
together; "JL". To separate them, we can use this format: 

PRINT USING " ! "5 Nl$t N2$ 
Another approach is to specify two distinct string values in the format string: 
PRINT USING " ! ! " ! Ni*» N2$ 

Very Important: the "!!" specifies two string values of length one, not one 
string value of length two. So TRS-80 displays the first character in each string. 
To separate these characters, we insert a literal blank space: 

PRINT USING " ! ! " 5 Nl$> N2$ 

Now we're getting close to solving the payee problem. How do you insert a period 
after each initial? (Hint: Make it a literal character.) 

Answer: 

PRINT USING "1ST INITIAL"! ♦ 2ND INITIAL= ! ♦ " i Ni* t N2$ 

Okay, now we know how to print out the FIRST character of any string value. But 
how do we get an entire value? 

This calls for a new format specifier: %% (a pair of percent signs), indicating a 
string value containing two characters. To increase the length of the string, add 
spaces inside the %%. Each space you add adds another character to the string. 

For example, type: 

PRINT USING "%%" 5 N3$(no spaces) 

PR I NT USING "X X" 5 N3*(one space) 

PR I NT US I NG " X X " 5 N3$(two spaces) 

PR I NT USING "X X" 5 N3$(six spaces) 
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Now we're getting quite close to the answer. Try this line: 

PRINT USING "! . ! .X *" ! Nl*i N2* t N3t 

Note that % % asks for exactly eight characters— the length of OVERHILL. If 
N3$ contained a longer name, only the first eight characters would be displayed. 
So just to be safe, we might put 23 spaces between the %% to allow for N3$ to 
contain up to 25 characters. Here's the final version of line 80: 

80 PRINT USING "PAY TO THE ORDER OF ! . ! . ^"5N1*» N2$ » N3$ 

23 spaces 

We omitted them, but be sure you put 23 blank spaces between the %-signs. 
Line 80 can be made much shorter by storing the format string in a string 
variable. Add line 75 and change line 80 as follows: 

75 A*="PAY TO THE ORDER OF ! . ! . % (23 spaces) 1" 

80 PRINT USING A$ 5 Nl*. N2$ . N3$ 





ing field M 



! 

%% 



IlllflS 



#21-6 

are twos 



the first two or more characters 
% % gets three; each additional s 
doesn't contain enough charactei 
enough trailing spaces to fill the 








Program (Do It Yourself #21-3). Change the resident program to include a 
rejection of, say, people born on odd-number days of the month. (You'll have to 
include a question of the date of the applicants birth, an IF. . .THEN statement, 
and a rejection notice.) 
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Hf Chapter Checkpoint #21 

1. The primary purpose of PRINT USING is: 

a. To confuse the programmer. 

b. To improve the Computer's precision. 

c. To control the format in which data is printed. 

d. To speed up output to the display. 

2. Which of the following is not a PRINT USING format specifier? 

a. "#" 

b. "!" 

c. "$" 

d. "@" 

3. If PRINT USING finds a non-special character in its format-string, it will: 

a. Print it as a literal character. 

b. Give you a syntax error message. 

c. Ignore it. 

d. Print out its ASCII code. 
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Control That Cursor! 

Your domination of the Computer's PRINT mechanism is nearly complete. You 
can control tab positions, format numbers down to the last decimal point, 
comma, and + / - sign; you can even control how many characters of a string are 
printed. Now we're going to tame the cursor. 

This will be a very important accomplishment, because the cursor determines 
where printing starts. If you can position the cursor anywhere on the display, 
then you can print anywhere on the display. 



The On-Again, Off-Again Cursor 

We talk about this cursor as if it were a reliable, identifiable element on the 
display at all times. But the cursor disappears while a program is running, 
coming back only for an input statement. What good does it do to talk about the 
cursor position, when we can't see the cursor? 

Our first exercise of authority over the cursor will be to turn it on— make it 
visible during program execution— even when it's not handling an INPUT. 

Instead of printing letters and numbers, you can print a control character that 
tells TRS-80 to turn on the cursor. Your Computer won't display anything, but 
the cursor will come on at the current print position. 

So how do you print a control character? Remember the CHR$(n) function from 
Chapter 19? We used it to print the character associated with one of the ASCII 
codes. For example, since 65 is the ASCII code for the letter "A", 

PRINT CHR*(G5) 
prints that letter. 
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The control code meaning "cursor on" is 14. The control code meaning "cursor 
off' is 15. To prove it, try this short program: 



r; 



NEW 

10 CLS 

20 PRINT "NOW YOU SEE IT ♦ ♦ ♦ " 

30 PRINT CHR$( 14) 'TURN CURSOR ON 

40 FOR 1 = 1 TO 1000 

50 NEXT I 

70 PRINT "NOW YOU DON'T . ♦ ♦ " 

80 PRINT CHR$( 15) 'TURN CURSOR OFF 

S0 GOTO 90 



(Mm' mmm 

~) mw* wbs(14); : ; • 
/ to turn it hack off, usel 

PRINT CHR$(t$ ; : 



*■■&'. 



Whenever you want to keep track of the current print position, place a PRINT 
CHR$(14) toward the beginning of your program. In this chapter, we'll use this 
trick often. 

Before we can start telling the cursor where to go, we've got to have a way of 
specifying the destination. For example, suppose we want to position the cursor 
to the "middle" of the display: 



Using Old Tools 

Starting from the top left corner of the display, the "middle" is eight lines down 
and 32 columns over. So how do we position the cursor to the top left corner? The 
two ways we know about are CLS and (CLEAR) . 




er^Bfera^LS, we^all itithe? 
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'CLEAR SCREEN AND HOHE CURSOR 

'CURSOR ON 

'DROP DOWN 7 LINES 



RUN this: 

NEW 

10 CLS 

20 PRINT CHR$( 14) II 

30 FOR 1 = 1 TO 7 

40 PRINT 

50 NEXT I 

B0 PR INT TAB (31) 5 "*" 'TAB ( 31 ) =32ND COLUMN 

70 GOTO 70 'HOLD DISPLAY 

Another way to position the cursor is to advance it one space at a time up to the 
desired position. This involves calculating the total number of print positions 
from "home" to the destination. 

For example, to print an asterisk in column 32 of the second line, you must print 
a full line of spaces plus 31 additional spaces, for a total of 95 spaces: 

NEW 

10 CLS 

20 PRINT CHR$( 14) 5 

30 FOR 1 = 1 TO 35 

40 PRINT " " ; 'ONE SPACE BETWEEN QUOTES 

50 NEXT I 

B0 PRINT M * H 5 

Program (Do It Yourself #22-1 to 22-5). Use the last technique to print an 

asterisk: 

22-1. In the middle of the display. 

22-2. In the middle of the last line. 

22-3. At the second-to-last position on the last line. 

22-4. At the last position on the last line (The display will automatically scroll 

up— there's no way to stop it when you print on the last position of the last line. 

22-5. Final Question: How many print positions are there on the display? 

Using old tools, we've been able to position the cursor by advancing it from a 
known position to a specific destination. But the techniques we used have 
obvious drawbacks: 

1. You can't move the cursor back to a higher line unless you first erase the 
display with CLS. 

2. You have to know where the cursor is before you move it. 



fit's a rather inefficient technique, but it 
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There's a very intriguing way to get around the first drawback. It involves more 
control codes (like CHR$(14)). 

Cursor Motion Controls 

There are six control codes for moving the cursor without changing what's on 
the display: 



Code 


Cursor motion 


24 


Back (left) 


25 


Forward (right) 


26 


Down 


27 


Up 


28 


Home position 


29 


Beginning of line 




Here's a demonstration program: 

NEW 

10 CLS 

20 DEFINT A-Z 

25 REM ♦ ♦ ♦ SAME CURSOR CONTROL CODES FOR CONVENIENCE 

30 CN=14: CF=15: BK=24: FD=25: DN=2S: UP=27: HM=28s BG = 23 

40 PRINT CHR$(CN> 5 'CURSOR ON 

50 PRINT "DEMONSTRATION OF CURSOR MOTION" 

S0 PRINT "FORWARD MOTION": C$ = CHR$(FD) : GOSUB 500 

70 PRINT "BACKWARD MOTION": C$=CHR$(BK) : GOSUB 500 

80 PRINT "UPWARDS MOTION" : C$ = CHR$(UP) : GOSUB 500 

30 PRINT "DOWNWARDS MOTION" : C$ = CHR$(DN) : GOSUB 500 

100 END 

500 REM ♦ ♦ ♦ SHOW OFF CURSOR CONTROLS 

510 GOSUB 1000 ' DELAY 

520 FOR 1 = 1 TO 1024 

530 PRINT C$5 

540 NEXT I 

550 RETURN 

1000 FOR 1 = 1 TO 300: NEXT I 'DELAY SUBROUTINE 

1010 RETURN 

There are many other control codes related to the video display. We'll cover 
some of them later. They are all listed in the Appendix, so you can experiment 
with them on your own. 
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So now you can move the cursor all over the display— but you've still got to know 
where the cursor is before you can move it to a specific place on the display. 

TRS-80 has a special form of PRINT that solves both problems instantly. . . 

PRINT @ 

The display contains 16 * 64 = 1024 print positions. Suppose we number each of 
them like this: 



0,1,2,. 



.,,1022,1023 



Having done this, we are ready for PRINT @. 

Try these examples in the immediate mode: 

CLS 

PRINT @ 73G* "*" 

PRINT S ®t "*" 

CLS 

PRINT § 736 * '**" i : PRINT 8 * "*" 



".f/"' J"i-';V.f : >^'\: : '" ].] 







*2 

s you stent prifi 

i from q rhome") to 1023 ( 

cursor without printing anything, use this form: 
PRINT @ /?,""; 
m is a null string. There are no spaces between the quotes. 



print® /?, using format; print-list 



M 






Bi^H 
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Having PRINT @ changes the whole nature of output to the video display. 
Without it, the display is like a constantly scrolling piece of paper; with it, the 
display is more like a blackboard on which you write over and over, erasing one 
section and rewriting that section. For example, let's bring back the clock 
program, but this time take full advantage of PRINT @ and the USING function as 
well. Type is this revised version: 

NEW 

10 INPUT "ENTER THE CURRENT HOUR" 5 HR 

20 INPUT "ENTER THE CURRENT MINUTE" 5 MN 

30 INPUT "ENTER THE CURRENT SECOND" > SC 

40 CLS 

50 CTR=8*64+2S 

60 FOR HR-HR TO 23 

70 FOR MN = MN TO 59 

80 FOR SC = SC TO 59 

90 PRINT § CTR t USING "##;##-##" ; HR * MN > SC 

100 FOR T = TO 280 

110 NEXT T 

115 NEXT SC 

120SC = 

125 NEXT MN 

130 MN = 

135 NEXT HR 

140 HR = 0: GOTO 80 

In the next few chapters, we'll be using PRINT (w quite often. Just to get ready, 
run this version of the sine- wave graphing program. This one uses a horizontal 
X-axis. Compare it with D.I.Y. #20-3. 

NEW 

100 'DEMONSTRATION OF PRINT § CAPABILITIES (SINE GRAPH) 

110 ' 

120 ' INITIALIZATION 

130 CLS: CLEAR 100 

140 DEFINT I-K 

150 ' 

160 ' SET UP CONSTANT VALUES 

170 IL=8*S4+1 ' IL = START POS OF CENTERLINE 

180 IC = 31 ' COLUMN POSITION OF Y-AXIS 

190 NL$=CHR$(2G)+CHR$(24> ' CURSOR MOTION (DOWN >BACK) 



skip it and come back later. . . 
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200 Xl$="0 n ' LEFT MARKING FOR X-AXIS 

210 X2$= H +"+NL$+ n 3 n +NL$+"S"+NL$+ M n ' RT» MARKING 

220 Yl$="+1 " s Y2$="-l" ' Y-AXIS MARKINGS 

230 DR=1 *745329E-2 ' DEGREES TO RADIANS CONVERSION FACTOR 

240 ' 

250 ' DRAN X- AND Y- AXES 

2S0 PRINT @ IL t STRING*(BO * " - " ) ' X-AXIS 

270 FOR 1=0 TO 00 STEP 10 

280 PRINT § IL+I t "+" 5 ' SCALE MARKINGS 

290 NEXT I 

300 FOR 1=2 TO 14 ' Y-AXIS 

310 IR=I*G4+IC 

320 PRINT @ IR t "! " 5 

330 NEXT I 

340 ' 

350 ' LABEL X- AND Y-AXES 

360 PRINT @ 8*64 t Xl$? 

370 PRINT @ 6*84+62 t X2$ 5 

380 PRINT @ 84 + 30 t Yl$5 

390 PRINT @ 15*84 + 30 * Y2$ 5 

400 ' 

410 ' GRAPH HEADING 

420 PRINT @ 12 f "SINE FUNCTION ON THE INTERVAL <0 *360>"5 

430 ' 

440 ' COMPUTE AND GRAPH SINE CURVE ON INTERVAL <0 *3B0> 

450 FOR 1=0 TO 360 STEP 6 

480 V=5IN<I*DR> 

470 PRINT @ It "X= M 5: PRINT § 54 * "SIN(X) = " 5 

480 PRINT S 64 f USING "#*#" * I 5 

490 PRINT @ 11B * USING "*»♦##»«»#" 5 V! 

500 IX=I/6+l ' ADJUST RANGE OF X FOR DISPLAY 

510 IY = -FIX(V * 6) + 8 'ADJUST RANGE OF Y FOR DISPLAY 

520 IP=IY*64+IX ' CONVERT ROW-COLUMN TO i-POSITION 

530 PRINT © IP f " . "5 ' DISPLAY POINT 

540 NEXT I 

550 FOR 1 = 1 TO 500: NEXT I : CLS: GOTO 250 
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Note: Displaying graphs requires careful planning. First you decide how much 
of the display will be used. In this program, we decided to center the graph in the 
area bounded vertically by columns 1 and 61, and horizontally by rows 2 and 14. 
The center point of this area is at column 31, row 7 (represented in the program 
by IC and IL-l, respectively). 

Line 260 prints a line of 60 hyphens; lines 270-290 goes back over this line, 
replacing every 10th hyphen with a + to indicate a scale. 

Lines 300-330 print a vertical "line" composed of exclamation points. Notice how 
we move down the rows: to print at a particular row-column address (R,C), we use 
the formula: 

©-position - R*64 + C 

To put an ! at column 31 of every line from 2 through 14, we use the PRINT 
statement: 

PRINT @ I * 64 + 31, "!"; 
letting I count from 2 through 14. 

Lines 360-390 add the nu meric la bels to the axes. Variable X2$ is a little special. 
Run the program, press (BREAK) , then in the immediate mode type: 

CLS 
PRINT X2$ 

What's this? A string that prints vertically? It appears to contain four charac- 
ters: 

+ 
3 
6 
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But that's just an appearance. X2$ also contains several control characters — the 
ones that move the cursor around. Look at line 190: 

190 CM*=CHft*<26)+CHR*(24> 

Each time we print CM$, the cursor moves down to the next line and backs up a 
space. Line 210 builds up a string by alternating quoted strings and CM$: 

210 X2*=" + "+CM*+"3"+CM*+"B"+CM*+"0" 

Now X2$ contains both display characters and cursor motion controls. The 
statement, 

PRINT X2* 
causes this result: TRS-80 prints thea"+", then drops down a line, then backs lup 
a space, then prints a "l", then drops down and back, then prints an "8", etc. 

Lines 450-540 handle the sine-computations and graph the results. 

Line 450: 1 counts from to 360 degrees. This represents the complete sine-cycle. 
Since there are only 60 positions on the X-axis, we'll count by sixes. That way 
we'll plot one point for each hyphen on the axis. 

Line 460: TRS-80's trigonometric functions require angles measured in radians, 
not degrees. This line performs the conversion. 

Lines 470-490: In addition to graphing the curve, we want to show the actual 
values of X and SIN(X). Run the program again, and use (SHIFT) @ to pause so you 
can check these values. Isn't PRINT USING great? It ensures that all the SIN(X) 
values have a "uniform" look. Much more impressive than simply PRINTing 
unformatted values! 

Lines 500-510 adjust the X and Y values to suit the requirements of our graph. I 
ranges over values from to 360; therefore 1/6 + l ranges from 1 to 61 — which 
matches the column range on our graph. Y can range from + 1 to - 1; therefore 
- Y * 6 + 8 ranges from 2 to 14, which matches the line range of the graph. 

Line 520: Given a row-column address, this line computes the equivalent @ 

address. 

Before you go on to the next chapter CSAVE the sine-graph program 

because you'll need it later. 
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ST Chapter Checkpoint #22 

1. You can turn the cursor on during program execution by typing PRINT CHR$ 
( ) and turn it "off" by typing PRINT CHR$ ( ). 

2. The cursor's "home" is: 

a. the upper-left hand corner of the display 

b. the lower-left hand corner of the display 

c. somewhere in Ivy Bend 



3. PRINT @ lets you start printing . 



on the display. 



is: 



4. The correct format for PRINT 

a. PRINT @n, list-print 

b. PRINT @ list, n-print 

c. PRINT @ n, print-list 

5. (TRUE) (FALSE) You may combine PRINT USING and PRINT @. 
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Graphics 






Graphics refers to two-dimensional art; computer graphics refers to computer- 
generated art which is printed on the display, printer, or other output device. 
Computer graphics can include tables, illustrations, and various other forms of 
artwork. Images printed on the display can even be animated, as we'll see later 



on. 



In some programs, graphics techniques are used to add interest; for example, a 
space-war game might include a graphics routine to draw spaceships on the 
display. Other programs may produce "graphics for graphics' sake", for exam- 
ple, a program which prints out an image of Abraham Lincoln on a line printer. 

Characters and Character Codes 

Everything you PRINT can be thought of in two ways: 

• As a sequence of characters — what you actually expect to see printed. 

• As a sequence of codes — each numerical code representing one character. The 
computer uses these codes to represent the characters in memory and to send 
them to the display. 

For example, the statement: 

PRINT "ABC" 
sends the following code sequence to the Display: 

65 » 66 » 67 » 13 
When the Display receives the code 65, it creates the "A" character; 66, "B"; 67, "C"; 
the 13 causes the display to drop the cursor down to the beginning of the next 
line. (BASIC adds that last code to the text, since the PRINT statement didn't 
include trailing punctuation). 
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What's the relationship between a code and its "corresponding character"? It's a 
totally arbitrary one, based on a commonly accepted table called ASCII (Amer- 
ican Standard Code for Information Interchange). ASCII associates a character 
or function with each of 128 codes (0-127). By extension, codes 128-255 can be 
assigned to additional characters or functions. 

The TRS-80 Code for Information Interchange (TRSCII) is just an extension of 
ASCII, with a few changes in the code range 0-127. Right now, we're going to 
introduce TRSCII, paying special attention to how the codes affect the Display. 

TRSCII includes 256 character codes (zero through 255). To store any of these codes 
in a string or to PRINT one, use the desired code as the argument to the CHR$(rc) 
function. For example: 

A$ = CHR$(90) 
stores the character code 90 in A$. Since 90 is the code for "Z", 

PRINT A$ 
will display the letter Z. 

A* = CHR$(14> 
stores code 14 in A$. If you then PRINT A$ inside a program, the cursor will 
appear, since code 14 means "cursor on" to the display. 

TRSCII can be divided into four functional groups: 

• Text 

• Control 

• Graphics 

• Space Compression 

Text 

Codes 32-127 represent the standard ASCII text characters: A-Z, a-z, 0-9, and 
punctuation symbols (see the table in the Appendix). Note that codes 97-122 are 
used to indicate the lowercase alphabet. But unless your computer is capable of 
displaying lowercase, these characters will be displayed as uppercase. 
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Run this program to see all the text characters with their codes: 



NEW 

10 CLS 

20 FOR 1=32 TO 127 

30 PRINT USING "»## = 

40 NEXT I 

50 GOTO 50 




I 5 CHR$( I) 5 






Control 

Codes 0-31 represent the 32 control characters. Control characters are not dis- 
played as such, but may perform a control function. (Some have no effect on the 
display.) Here's a list of control characters that have some effect on the display. 



Code 

8 
10,11,12,13 

14 
15 
23 

24 
25 
26 

27 
28 

29 
30 

31 



Result when you PRINT CHR$(code) 

Backspaces cursor and erases 

Moves cursor to beginning of next line 

and erases to end of that line 
Turns on cursor during program execution 
Turns off cursor during program execution 
Converts to 32 character/line display 
Moves cursor back 
Moves cursor forward 
Moves cursor down 
Moves cursor up 
Homes cursor and converts to 

64 character/line display 
Moves cursor to beginning of line 
Erases from current cursor position to 

end of line, without moving cursor 
Erases from current cursor position to 

end of display, without moving cursor 



You've already seen a few of these codes in action. We'll be demonstrating many 
more of them soon. 

Graphics 

Codes 128 to 191 correspond to the special graphics characters — a set of display 
patterns. You can use these for special effects, bar-graphs, etc. 
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To see the entire set of graphics characters, run this program: 

NEfi 

10 CLS 

20 FOR 1 = 128 TO 191 

30 PRINT USING "###= ! " 5 I # CHR$( I ) * 

40 NEXT 

50 GOTO 50 

Each graphics character is a 2 x 3 "cell" in which various combinations of its six 
blocks are lit or "set": 



For example, graphics character 128 has no blocks set; 129 has block 1 set; 130, 
block 2; 131, blocks 1 and 2; etcetera, all the way to 191, which has all blocks set. 

Space Compression 

Codes 192-255 have a very specialized purpose. They represent sequences of 
spaces (blanks): 

192 zero blanks 

193 one blanks 

194 two blanks 
And so on, up to: 

255 63 blanks 

These codes allow you to "compress" or abbreviate sequences of spaces into a 
single character. In some applications, this is very worthwhile, since storing 
blanks (one character for each blank) can be a waste of memory. See the 
demonstration program in Appendix B. 

For a demonstration, type in this line: 

PRINT "I" + CHR*<254) + "2" 

TRS-80 prints 62 spaces between the "1" and "2". 






^^^^^^M^^M^^^^m^^^^^^^^m^m^^^^^^^^^^^^^S^^^^i 



" '■'■ "■'■■■'' •\: ; v' : '.':' : <',- :: ''- ; ''---'-' ; '-- : "• 



252 



Codes vs. Characters 

We've already used two functions involving character codes: 

CHR$ Returns the specified character code as a string. 

ASC Returns the numerical code for the specified string character. 

There's a third code-related function which sometimes involves converting a 
code into the corresponding character: STRING$. We demonstrated this function 
at the beginning of this book; now we'll explain it and put it to use. 

Before trying out STRING$, type: 

CLEAR 150 
to reserve enough string space for our examples. 
Now we're ready. Start by typing: 

PRINT STRING$(G4t " + ") 
You'll find that this prints a line of 64 plus-symbols. 

Here's another one: 

PRINT STRING$(25f "5") 

This prints a line of 25 "5"s. Got the idea? Now try this: 

PRINT STRING*(50» 45) 

As you can see, this prints out a string of 50 hyphens. It's not hard to understand 
why 50 of them were printed; this is because we specified 50 in the line above. 
What may be a bit more difficult to understand is why the line printed out a 
string of hyphens. If you look at the TRSCn table in the Appendix, you'll see that 
45 is the code for "-". Similarly, since 88 is the code for "X", 

PRINT STRING*<10 t 88) 

will print a string of 10 "X"s. 



You could do the same thing aeWeffidently) with 
these statements: '.:..: 
FOR ;ij»i TO 64s PRINT CHR* <43)J: 
■ NEXT I 
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We can use STRING$ to print out a string of any character. For example, suppose 
we want to print a string of a certain graphics character, say, #150. Since we 
can't type in a graphics character from the keyboard, we use the code instead: 

PRINT STRING$<100 * 150) 

which prints graphics character #150 on the display 100 times. So, when you're 
using STRING$, often you must specify the code rather than the character itself. 

How about a string of control characters? Try this one: 

PRINT STRINGS (128* 8)5 "*" 5 

That prints 128 backspaces — equivalent to two lines — before displaying the 
asterisk. 






You can't do anything with STRING$ that you couldn't do in other ways. But 
STRING$ is more convenient than other methods. 
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j The Real Thing 

1 Enough of this theorizing. Let's draw some figures on the Computer's display. 
Type this in: 

| NEN 

J 100 FOR K = l TO a 

110 PRINT STRING$<4, 191) 5 ' SOLID BAR 
! 120 PRINT CHR$( 19G) 5 ' FOUR SPACES 

1 130 NEXT K 

140 PRINT 

I and run it. 

Remember from the graphics table that 191 is the code for "all blocks set", which 
] produces a rectangle four times as high as it is wide. So, when we print a string of 
i four of them, as we do in line 110, we get a solid square, with a solid square of 

blanks to the right. 

I There's not much we can do with these four squares. But if we had a few more of 
them . . . Don't type NEW; leave lines 100-140 in the Computer, and add these four 
lines: 

200 FOR K = l TO a 

210 PRINT CHR*(19G) 5 
] 220 PRINT STRING$(a t 191)5 
j 230 NEXT K 



} 



Type RUN. These new lines plus 100-140 will produce two staggered rows of 
squares. 

Now are you beginning to see possibilities? Suppose we made lines 100-130 and 
lines 200-230 into subroutines, and then put them into a FOR/NEXT loop, so that 
first one subroutine, then the other, would be called. Suppose we set the FOR/ 
NEXT loop to 4, so that this process would be repeated exactly four times. Add 
these lines to the ones already stored in memory: 
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10 CLS: CLEAR 100 




20 FOR 1 = 1 TO 4 




30 PRINT: GOSUB 100 


' PRINT "X X X X" PATTERN 


40 PRINT: GOSUB 200 


' PRINT "X X X X" PATTERN 


50 NEXT I 




80 END 




140 RETURN 




240 RETURN 





Now run the program. If you've typed it in right, a small chessboard will be 
drawn on the display. 

The complete program should look like this: 

10 CLS: CLEAR 100 

20 FOR 1=1 TO 4 

30 PRINT: GOSUB 100 'PRINT "XXXX " PATTERN 

40 PRINT: GOSUB 200 'PRINT " XXXX" PATTERN 

50 NEXT I 

60 END 

100 FOR K=l TO 4 

110 PRINT STRING$<4» 191) \ ' SOLID BAR 

120 PRINT CHR$( 1S6) 5 ' FOUR SPACES 

130 NEXT K 

140 RETURN 

200 FOR K = l TO 4 

210 PRINT CHR*(1SG) 5 

220 PRINT STRING$(4» 131) 5 

230 NEXT K 

240 RETURN 

The program which actually causes the Computer to play a game of chess on this 
chessboard we leave as an exercise to you. (But don't expect to find that one in 
the Appendix!) 
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Program. (Do It Yourself #23-1). Remember how to store cursor motion 
controls inside a string so we can print on several lines with a single PRINT? Run 
this program: 

10 CLEAR 100 

20 B*=STRING$(G* 191) ' SOLID BAR 

30 NL$ = CHR$(2B)+STRING*(BtZ4) ' DOWN AND BACK 

40 SQ$=B$+NL$+B$ ' CHECKER SQUARE 

50 CLS 

G0 PRINT SQ$ 

Use this method to produce another checkerboard display. You'll need PRINT @ 
statements. Decide the starting position for each of the 32 white checker- 
squares. By the time you're done, you'll really know your way around the 
display! 
Compare your program with ours in the Appendix. 

The Day The Earth Stood Still 

We'll end this chapter with a demonstration of Computer animation. Then 
you'll probably want to start trying out some of your own neat ideas, using what 
you've learned in this chapter. 

You've read so many UFO's by now, you wouldn't be surprised to see the real 
thing, right? So run this program. 

Note: Pay particular attention to the placement of the asterisks and spaces in 
lines 140 and 150. 

100 CLEAR 150: CLS 

110 DEFINT A-Z 

120 PRINT @ 960* STRING*<63>13i> 5 ' LANDING SURFACE 

130 CR*=STRING$(2B>148) ' CRAFT BODY 

140 Fl$ ="**********" 'BURN #1 

150 F2* = "*********" 'BURN #2 

160 BL$ = CHR$<131+29) ' 28 BLANKS 

170 FOR 1=0 TO 13 

180 CP=I*B4+17: BP=CP+68 

190 PRINT S CP t CR$5 

200 FOR J=l TO 10 





yiyd don ' jfc ^todoii 
a whole new 
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210 


PRINT § BP 


t Fl*5 


220 


PRINT § 5P 


f F2$? 


230 


NEXT J 




240 


IF 1 = 13 THEN 2S0 


250 


PRINT e CP * 


bl$; 


2G0 NEXT I 




270 GOTO 270 





H* Chapter Checkpoint #23 

1. Which of the following doesn't belong with the others? 

a. text 

b. control 

c. appendix 

d. graphics 

e. space compression 

2. Which of these STRINGS formats is incorrect? 

a. STRING$ (character length) 

b. STRINGS (length, character) 

c. STRINGS (length, code) 

3. What's the difference between the characters represented by the codes 65-90 
and those represented by 97-122? 

characters are not displayed as such, may perform a control 



function. An example of one is which 



258 








WKBK 



m 




260 



l^^^^^^^^^^^i^S! 



iBm 





Graphics — The Finer Points 

Remember the sine-waving program? In it, we plotted values for SIN(X) where X 
ged from zero to 360. The graph came out looking like this: 



rani 



3 
, .6 



Looks good, right? But compare it with an ideal sine curve like this: 




The difference is one of "resolution". The ideal sine curve has infinite points 
Ilong eS a^is, while our TRS-80 version allows for just 60 points along the 
X-axis, and 14 along the Y-axis. 

Although you can't attain high resolution with your TRS-80 you can significant- 
ly Wove its resolution. We'll start by examining the "smallest known ele- 
ment" of the TRS-80 display. . . 



Resolution is the ability to distinguish between ob- 
tion is equal to the depth of one line. 
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The PRINT Cell 

The PRINT cell is the space required by any single character you PRINT. Whether 
you're displaying a tiny period or a big capital X, the cell size is the same. RUN 
this program to prove it: 

10 CLEAR 100: DEFINT A-Z: CLS 

20 MH$ = STRING$(6a>i91) 'SOLID WHITE LINE 

30 FOR 1=4 TO 12 

40 PRINT § 1*64 t HH$5 'PRINT A SOLID WHITE LINE 

50 NEXT I 

S0 PRINT @ 7*64 + 31 t " ♦ " * 

70 PRINT @ 6*64 + 31 » "X M 5 

80 GOTO 80 

Note: The two characters take the same size "chunk" out of the white display. 
That's the "cell size". Whenever you use PRINT, the resolution is limited by the 
size of the character cell. 
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Unlocking the Cell 

Your Computer has three functions that let you specify or "address" subcell 
particles (as in subatomic particles, for you physics majors). We call these 
subcells "blocks." 

The three functions are: 

• SET 

• RESET 

• POINT 

SETting a Block 

Imagine that each column on the display is made up of two subcolumns and each 
row is made up of three subrows. Then there are 2*64=128 subcolumns, and 
3*16 = 48 subrows. 

We number the subrows from to 47; subcolumns from to 127. And from now on, 
we'll refer to the subcolumns as X-coordinates, and subrows as Y-coordinates. 
This will help you think of the display as a graph: 



Actually, you've already seen the "block"* We de- 
which various combinations of its six blocks are lit or 



In fact, each graphics character (trscii codes i28-m) is 
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X-Coordinates 



Y-Coordinates 








1 


2 


3 L 











/ 


1 










2 










\ 


^ 









111 

2 2 2 
5 6 7 



IS 



45 
46 

47 



if 



With that layout in mind, RUN this program: 

10 CLS 

20 PRINT "SELECT THE BLOCK YOU WANT TO SET" 5 

30 INPUT "X-COORDINATE (0-127)" 5 X 

40 IF X<0 OR X>127 THEN 30 

50 INPUT "Y-COORDINATE (0-47)"; Y 

G0 IF Y<0 OR Y>47 THEN 50 

70 SET(X *Y> 

80 FOR 1 = 1 TO 300: NEXT I: 'DELAY 

90 INPUT "PRESS <ENTER> TO SET ANOTHER BLOCK" ; A 

100 GOTO 10 

What coordinates would set the point in the exact center of the display? Test 
various X-Y combinations until you can predict approximately where every 
block will appear. 
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Using SET instead of PRINT @, we can smooth out that sine curve from the last 
chapter. Here's Sine- Wave III. Type it in and RUN it. (If you have a tape copy of 
Sine Wave II, load it in, and type in new lines for 420-end.) 

100 ' DEMONSTRATION OF SET GRAPHICS (SINE GRAPH) 

110 ' 

120 ' INITIALIZATION 

130 CLS: CLEAR 100 

140 DEFINT I-K 

150 ' 

1S0 ' SET UP CONSTANT UALUES 

170 IL=8*64+1 'IL=START OF CENTERLINE 

180 IC = 31 'COLUMN POSITION OF Y-AXIS 

1S0 NL$=CHR$(2S)+CHR$<24> 'CURSOR MOTION <DOWN*BACK) 

200 Xi$="0" 'LEFT MARKING FOR X-AXIS 

210 X2$= ,, + n +NL$+ I, 3 ,, +NL$+"6 ,I +NL$+ M 0" 'RT. MARKING 

220 Yl$="+i": Y2$="-i" 'Y-AXIS MARKINGS 

230 DR=1 *745329E-2 'DEGREES TO RADIANS CONVERSION FACTOR 

240 ' 

250 ' DRAN X- AND Y-AXES 

260 PRINT S IL» STRING$<60t ,, -"> 'X-AXIS 

270 FOR 1=0 TO 60 STEP 10 

280 PRINT @ IL+I f " + " ; 'SCALE MARKINGS 

290 NEXT I 

300 FOR 1=2 TO 14 'Y-AXIS 

310 IR=I*64+IC 

320 PRINT § IR t " ! " 5 

330 NEXT I 

340 ' 

350 ' LABEL X- AND Y-AXES 

360 PRINT § 8*64 * Xl$5 

370 PRINT § 6*64 + 62* X2$ \ 

380 PRINT 6 64 + 30 * Yl$» 

390 PRINT @ 15*64+30* Y2$ 5 

400 ' 

410 ' GRAPH HEADING 

420 PRINT 6 1 f "X=" 5 TAB(20) » "SINE FUNCTION ON <0,360>" 5 

TAB(54) 5 "SIN(X) = n 5 

430 ' 
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4a0 ' COMPUTE AND GRAPH SINE CURUE ON INTERVAL <0#3B0> 

450 FOR 1=0 TO 300 STEP 2 

4S0 y = SIN< I*DR) 

470 PRINT (§ 64 t USING "###" 5 I 5 

480 PRINT @ US t USING "##,#####»" ; y ? 

490 IX=I/3 + 2 'ADJUST RANGE OF X FOR DISPLAY 

500 IY = -FIX <U*18)+24 'ADJUST RANGE OF Y FOR DISPLAY 

520 SET ( IX * IY> 'DISPLAY POINT 

530 NEXT I 

540 FOR 1 = 1 TO 500: NEXT I : CLS: GOTO 250 

We've doubled the resolution along the X-axis, from 60 to 120 points; and tripled 
it along the Y-axis, from 12 to 36 points. That's as smooth a curve as you're going 
to get with your TRS-80. You can draw horizontal and vertical lines smoothly and 
continuously, but any diagonal line is going to have a stair-step effect. 
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RESETting a Block 

Of course, you can use CLS for a wholesale wipeout. Or you can PRINT blanks. 

But even this last method lacks precision or resolution, if you will. Printing a 
space (or any other character) over a graphics block erases not just one block, but 
all of the six that may be set in that particular cell. 
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What's needed is an operation to specify a particular graphics block to be turned 
off. The TRS-80 has it, and it's called RESET. 

RUN this demonstration program, in which we paint a white window on the 
display, and then let you reset points in the window; 

10 CLEAR 100: CLS 

20XL=10: XR=117 'LEFT AND RIGHT X-BOUNDARIES 

30 YT = 15: YB = 38 'TOP AND BOTTOM Y-BOUNDARIES 

40 GOSUB 120 'SUBROUTINE TO PAINT WINDOW WHITE 

50 PRINT © * "SELECT THE BLOCK TO BE RESET" 

60 PRINT 6 64* H X-COORDINATE5 N 5 XL! "-" $ XR 5 : INPUT X 

70 IF X<XL OR X>XR THEN PRINT @ 64* CHR$(30) i: GOTO S0 



80 PRINT "Y-COORDINATE: 



YT: 



ii li ■ 



5 YB5: INPUT Y 



90 IF Y<YT OR Y>YB THEN PRINT @ 128* CHR$(30> *: GOTO 80 

100 RESET(XtY) 

110 PRINT § 64 * CHR$(30> : PRINT CHR$(30) ; : GOTO 60 

120 ' PAINT WINDOW WHITE--ONE BLOCK AT A TIME 

130 FOR X = XL TO XR 

140 FOR Y = YT TO YB 

150 SET(X*Y) 

160 NEXT Y *X 

170 RETURN 








Did you notice how long it takes to paint the window white? That's because 
you're painting one block at a time. Which brings us to another "Useful and 
Factual Observation": 
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For fast^efficient proorams, i 
print @ can aocbmpiislt^ie sari 



In general, if you want to specify 
tt will be mucti faster. 




nyhen 
then use it 



To demonstrate: Notice that the boundaries of our window happen to coincide 
exactly with print cell boundaries: 

The X-coordinates (10-117) correspond to columns 5-58 

The Y-coordinates (15-38) correspond to rows 5-12 
So instead of painting the window one block at a time, we can do it one line at a 
time. DELETE lines 120-170 and insert these new ones: 

120 'PAINT WINDOW WHITE--0NE LINE AT A TIME 

130 LW=(XR-XL)/2+l 'LINE WIDTH 

140 WH*=STRING*(LW» 1915 'LINE CONTENTS (WHITE CELLS) 

145 CP=XL/2 'COLUMN POSITION 

150 FOR R=YT/3 TO YB/3 'ROW POSITION 

1G0 PRINT @ R*64 + CP * WH$ 5 

170 NEXT R 

180 RETURN 

RUN it and see what a difference it makes to have a bigger paint brush. 

POINTing at a Block 

The third and final graphics operation lets you examine any block to see 
whether it's on or off The function is called POINT (it points at any block so you 
can examine it), and it works like this: 

If the block (X, Y) is off POINT(X, Y) returns a 0. If it's on, POINT(X, Y) returns a -1. 

Since POINT is a function, it has to be used in some kind of statement. Here's a 
typical example (don't type it in — just look): 

IF POINTCX* Y)=-i THEN PRINT "BLOCK" 5 X5 Y5 "IS ON" 

However, there's an even simpler way of using the same statement, based on the 
fact that POINT returns a - 1 or a 0. 
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First we've got to introduce a subtle feature of IF . . . THEN: Instead of putting a 
test after IF, you can put a numeric expression. If the expression has a zero value, 
IF acts as if a test had failed. If the expression is non-zero, IF acts as if a test had 
passed. The POINT function was designed to take advantage of this feature. 

Here's the alternate form of the last example: 
IF POINT(X, Y) THEN PRINT "BLOCK"; X; Y; "IS ON" 

Add these lines to the main program and run it. 

90 IF Y<YT OR Y>YB THEN PRINT @ 128* CHR$(30) S: GOTO 80 
92 IF POINT (X»Y) THEN 100 ' BLOCK IS ON- -SKIP WARNING 
94 PRINT 6 192 * "THAT BLOCK 18 OFF ALREADY ! ! ! H 5 
98 FOR DLAY=1 TO 880 s NEXT DLAY: PRINT @ 192 t CHR$(30) 5 
98 GOTO 110 

In the next chapter, we're going to put all these features to work. . . while we 
play! (We'll also introduce a keyboard feature that'll open up whole new prog- 
ramming possibilities.) 



0* Chapter Checkpoint # 24 



1. The 



statement allows you to turn on a block while the 



statement enables you to turn it off. 



2. You can predict where a block will appear on the Display if you know its 
and coordinates. 

3. Which of the following doesn't belong with the others? 

a. RESET 

b. SET 

c. SINE 

d. POINT 
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Keys Alive! 

Or, What to Do Until the Pizza's Ready 

If you've ever played one of the video games while waiting for a pizza (or any 
other time), you've experienced the excitement of real-time interaction between 
man and machine: you position your paddle, cannon, hockey-player, etc. while 
the ball, target, hockey-puck, etc. is moving. You don't have to wait your turn. 

Now, equipped with the full power of TRS-80 graphics, you'll want to write your 
own real-time games. 

So how do you interact with a program? Through the keyboard, of course. . . with 
INPUT. But what happens during an INPUT? Everything comes to a halt — 
paddle, puck, target, and all — until you press (ENTER) to tell the Computer to 
look at what you've typed in. So much for real-time. 

Getting past this road block will require a new key input operation — one that is 
able to get the input "on the fly." 



INKEY$ — The Key to Interactive Programming 

At all times during program execution, TRS-80 is keeping track of the last key 
pressed since you typed run. It stores this character in a place we'll call the "key 
latch." (If you haven't pressed any keys, then the latch is empty.) 

The INKE Y$ function returns this character as a string value and clears the latch 
(empties it). If no key has been pressed, INKEY$ returns the null string. Excep- 
tion: pressing (BREAK) will always stop the program. INKEY$ won't normally 
return (BREAK) as a character. 
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The important thing about INKEY$ is, it doesn't wait for you to press (ENTER) . 
INKEY$ simply gets the character already in the key latch (if there is one) and 
goes on. 

By using INKEY$ at opportune moments in your program flow, you can make it 
seem like TRS-80 is doing two (or more) things at once — checking the keyboard 
and performing other tasks specified by the program! 

Type in this little program: 

NEW 

1000 DEFINT A-Z 

1010 CLS: PRINT TAB(24) 5 "UP-DOWN COUNTER" 

1020 T=l 'START WITH A POSITIVE INCREMENT 

1022 'SELECT UP OR DOWN ARROW (ARW$) 

1023 IF T=l THEN ARW$ = CHR$ ( 91 ) ELSE ARW$ = CHR$ ( 92 ) 

1030 PRINT 6 540 t USING " ! #####"; ARW$ 5 K? 'DISPLAY ARW$ & 

COUNT 

1040 IF INKEY$="" THEN 10S0 'IF LATCH EMPTY t CONTINUE 

1050 t=„t 'REVERSE SIGN OF INCREMENT 

1060 K=K + T 'COUNT BY INCREMENT T 

1070 GOTO 1023 

Now RUN it. It starts out counting up. Press any key (except (BREAK) , of course) 
and it will begin counting down. Each time you press a key (any key) it reverses 
the counting increment. 

So — you can interact with the program via the keyboard! 

Lines 1023 and 1030 determine which arrow is displayed next to the count. When 
counting up, an up arrow or ♦ will be displayed; down, a down arrow or ♦ . 

Line 1040 performs the INKEY$ function in the simplest possible manner. In this 
program, we don't care which key has been pressed; we only want to know if any 
key has been pressed at all. The test: 



IF INKEY*= 



THEN 1060 



tells whether the key latch is empty or not. If it is empty, the program keeps 
counting with the same increment (line 1060). But if the key latch is not empty 
(INKEY$ is not ""); then a key has been pressed. In that case, line 40 reverses the 
sign of the increment. 



Not0 to Model HI Users: So far you've had it pretty 
easy, but there is a program exception for you in this 

^ ¥M ^p i^^ 

1023 IF T=l THEN 

(They will work in theprogram but they just won't look 



as 



m 



Instead^ we've inserted the character code for a A (code 
arrows but they show direction up/down just as well. 
There are no spaces between the quotes in line 1040, 






here are no spaces inside the quotes! 
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Notice something else about the program: the keys you press while it's running 
are not displayed. We never said they would be, but after so many INPUT 
operations, you may have expected it. 

Once again, here are the facts about INKEY$. 




Program (Do It Yourself #25-1). Change the up-down counter program so 
that it refuses to let the counter go past a certain limit (say, ± 100). Check our 
sample in Appendix A, but keep in mind that it's just one of an infinite number 
of choices. 

Who Knows What Lurks in the Key Latch? 
INKEY$ Knows. • . 

In the last program, we used INKEY$ to test whether the key latch was empty or 
not. Now we'll show how to retrieve a character from the keyboard so we can 
examine it. 

Type in this program: 

NEW 

1320 DEFINT A-Z 

1330 CLS 

1340 A$=INKEY$ 'CHECK KEY LATCH 

1350 IF A$=""THEN 1340 'IF EMPTY t TRY AGAIN 

1360 IF ASC(A$)<32 THEN 1390 'A$ WASA.C0NTR0L CHARACTER 

1370 PRINT "YOU PRESSED THE ' "5 A* 5 " ' KEY" 

1380 GOTO 1340 

1390 PRINT "NOT A TEXT CHARACTER-- ITS CODE IS"; ASC(A$) 

1400 GOTO 1340 
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Run the program. Try every key — each text key (A-Z, 0-9, punctuation) you press 
will be echoed on the display. Notice what happens when you press (ENTER) . That 
key has a character code just like the text keys — it's 13. 

Remember from our discussion of codes? Those below 32 are called control codes. 
In this program, we don't want to PRINT control codes since some control codes do 
strange things to the display. So when you press a control key, we want to 
display the code rather than the character represented by that code. 

Now try pressing other "control keys" — the back arrow, forward arrow, down 
arrow, and (SHIFT) versions of all the arrows. Bet you didn't know there were so 
many different characters available from the keyboard! 

How the program works: 

Line 1340 saves the contents of the key latch in A$. In this program, we can't do 
anything until we have an actual character to look at. So line 1350 causes control 
to loop back to line 1340 until a key has been pressed. 

Line 1350 checks for controlcharacters by comparing the ASCII code of A$ with 32. 
(32 represents the first text character.) We don't want to PRINT control charac- 
ters, so line 70 simply shows you the key code. 



m 



aracter): 
o&e Mgiik space in$i<le Ife qi^sO 
ffA$prec0desthe^^^ 



^••" : . : ;':' lr ."' 



YOU: 



: ^ ; ^e^3o^ 

\t^$i&m^^ erases ./ 

tfie;la# 



<^a:mcteir (code 8) to the vaiu^ yotfre etiieriiig. n ; ] 



What would happetx if we <i^c(PEIM , the control charac- 
ters? Look at the table in the graphics chapter describe 

eisPto^ea- : 



mgi 



eai 
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Parlez-Vous Graphics? 

Since INKEY$ does not echo your input automatically, this gives you the chance 
to "translate" keys into different characters before displaying the character. For 
example, you can assign graphics characters to certain keys. 

We'll modify the last entered program so that each time you press (SHIED and 
one of the alphabet keys, a graphics character is displayed. 

Add these lines to the resident program: 



1355 IF ASC(A$)>9S THEN 1411 
1410 A$=CHR$(ASC(A$)+33> 
1420 PRINT A$: GOTO 1340 



'A* IB A SHIFTED A-Z 
'MOVE CODE TO GRAPHICS RANGE 




III and Model 4 Users: 

1 lines (1355-1420) work, you i 
>ard in the tippe 




How and When to Clear the Key Latch 

Suppose you want keyboard input during a specific portion of a program's 
execution cycle. Since INKEY$ saves the last key pressed anytime during execu- 
tion, how are you going to screen out entries made at the wrong time? 

Run this program to see the problem and the solution. 

NEW 

1470 CLS 

1480 PRINT TAB<20) 5 "TABLE OF SQUARE ROOTS" 

1430 N=l: F$="#### ##,#»###" 

1500 FOR 1=0 TO 39 

1510 PRINT @ I*1S+128 * USING F$ 5 N * SQR(N> 5 

1520 N = N+1 

1530 NEXT I 

1540 PRINT: PRINT "PRESS <C> TO CONTINUE t <0> TO QUIT" 

1550 A$=INKEY$: IF A$=" " THEN 1550 'LOOP UNTIL NOT EMPTY 

15G0 IF A$ <> "C" THEN 1530 'NOT <C> t SO CHECK FOR <0> 

1570 PRINT 6 128 i CHR$(31) 'ERASE CURRENT PAGE 

1580 GOTO 1500 'CONTINUE 

1590 IF A$="Q" THEN END 'QUIT 

1B00 GOTO 1550 'INVALID KEY PRESSED- -GET ANOTHER 

Run the program. The "live keyboard" adds some class to a basically dreary 
number-cruncher! Press CD to see the next page, QD to quit. Any other key will 
be ignored. 



275 



But back to clearing. . . run the program again. While the program is printing 
the current page of square roots — before it asks you to press GD or GD — press 
GD "accidentally" once or twice. 

"What happened? I didn't get a chance to look at that page!" That's because the 
key latch contained the accidental GD you pressed. So the INKEY$ in line 1550 
returns a "C", and the program thinks you are ready to continue. 

There's a quick and simple solution to this problem. It depends on the fact that 
INKEY$ empties the key latch. So just before you enter the key-input section of 
your program, insert a "dummy" INKEY$ operation. To fix the resident program, 
add this single line: 

1545 A$=INKEY$ 'FLUSH KEY LATCH OF PREVIOUS ENTRIES 

Now run the program again. You'll find that to make it continue (or quit), you 
have to press the correct key at the correct time. 

Numeric Entry to an INKEY$ Routine 

INKEY$ returns string values only. So how do you go about entering numbers? 
Here's where the built-in function VAL comes in handy. 

VAL accepts a string argument and evaluates it as a number. If the string 
characters don't make sense in a number, it returns a zero. For example: 

VAL (argument) Numerical result 

VAL("8") 8 

VALC'l" + "." + "3") 1.3 

VAL("5" + "E" + "2") 5E + 03 (5000) 

VALC'XYZ" + "1") 

VAL(" " + '100" + "A") 100 

Note: VAL stops evaluating at the first "illegal" character. 

So, to evaluate an INKEY$ entry as a number, use this approach (don't type this 
in): 

A$ - INKEY$ 

A = VAL(A$) 
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Here's a program to demonstrate numeric entry with INKEY$ (and also check 
your reflexes). 

NEW 

1630 CLS 

1640 DEFINT A-Z 

1650 X=RND<5)-1: Y = RND(5) : G = S93 

1660 Z = X + Y 

1670 PRINT i 8*64 + 20 t "WHAT'S" 5 Xi "+"5 Yi "? "5 

1680 A$=INKEY$ 'FLUSH KEY LATCH OF PREVIOUS ENTRIES 

1700 FOR 1 = 100 TO STEP -1 'START TIMER 

1710 A$=INKEY$ 'CHECK KEY LATCH 

1720 IF A$<"0" OR A*>"9" THEN 1770 'EMPTY OR INVALID 

1730 PRINT A$» 

1750 G=VAL(A$) 'CONVERT STRING TO NUMBER 

1760 1=0 'FORCE END OF LOOP 

1770 NEXT I 

1780 IF G = Z THEN PRINT " *** RIGHT ***": PRINT: GOTO 1820 

1790 PRINT: IF G = 999 THEN PRINT "TOO LATE--" 5 : GOTO 1810 

1800 PRINT: PRINT "WRONG--" 5 

1810 PRINT "ANSWER IS" 5 Z: PRINT 

1820 FOR 1 = 1 TO 800: NEXT I 'DELAY 

1830 CLS: GOTO 1650 

RUN the program. For a real challenge, change line 1700 to: 

1700 FOR 1=30 TO STEP -1 

In this program we're doing two things simultaneously — running a 100-to-0 
timer, and waiting for you to type in a digit. If time runs out first, a "TOO LATE" 
message is displayed. If you enter a digit in time, the program checks to see if it's 
the right one, and displays an appropriate message. 

Line 1650 gets random values for X and Y. X will range from to 4, and Y from l to 
5. Therefore Z will range from l through 9. 

Line 1720 causes the program to ignore all key-entries except characters be- 
tween and 9. We didn't even bother to make a separate test for A$ = "": wrong- 
key-pressed and no-key-at-all are handled the same way. 

As soon as you have typed in a digit, the program assumes you're through. After 
all, Z has to be a single-digit number between and 9. 
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Harder Problems Beget Smarter Programs 

Oh, so you've graduated beyond one-digit addition. . . even at high speeds. Now 
you want to be tested on two-digit addition. 

We still have to input one digit at a time. The trick is to take each digit as it's 
received, and save it in a "builder" string. When the builder string contains the 
correct number of digits, we evaluate the builder string with VAL. 

Make the following changes and additions to the resident program and run it: 

1S50 X=RND(45)+4: Y=RND<4G)+4: G=999 
1S90 B$=" n 'CLEAR BUILDER STRING 
1700 FOR 1=500 TO STEP -1 'START TIMER 
1740 B$ = B$ + A$: IF LEN(B*)<2 THEN 1770 
1750 G = UAL(B$) 'CONVERT STRING TO NUMBER 



What to Do When the Pizza Still Isn't Ready 

We started out this chapter talking about video games. And then we went and 
spent the whole chapter on arithmetic drills, up-down counters, character trans- 
lation, and the like. We hope you found it interesting. And we know that if you 
put the techniques covered in this chapter to use, you can create some fantastic 
programs. 

Video game programs tend to be rather long . . . with all the possibilities of 
score-keeping, special messages, etc. We've included some games in Appendix 
B. Type them in, run them, and modify them to your heart's content. 

But just to close this chapter, here's a little program that lets you control the 
speed of an object while it's moving. The program was written to be improved 
upon (see the D.LY. at the end of this chapter). 

Run this program: 

NEW 

1100 DEFINT A-Z 

1110 CLS: PRINT @ 2G » "MOT I ON" 

1120 PRINT TAB< 12)5 "PRESS '->' TO SPEED UP t '<-' TO SLOW DOWN" 

1130 T = 40 'INITIAL DELAY VALUE 

1140 1=10 'INCREMENT FOR CHANGING SPEED 
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1150 FST$=CHR$(9) 'SPEED UP CHARACTER 

1160 SL0*=CHR$(8) 'SLOW DONN CHARACTER 

1170 A$=CHR$<179)+CHR$<140) 'MOVING OBJECT 

1180 B*=STRING$(2»8)+STRING*(8t25) 'ERASE AND ADVANCE 

STRING 

1190 PRINT 6 8*B4 * "" 5 'INITIAL POSITION 

1200 PRINT A$5 'DISPLAY OBJECT AT CURRENT POSITION 

1210 K$=INKEY$ 'CHECK KEYLATCH 

1220 IF K* = M " THEN 1270 'IF EMPTY LEAVE SPEED AS-IS 

1230 IF K$ <> FST$ THEN 1280 'NAS -> PRESSED? 

12a0 T = T-I : IF T<1 THEN T = 0: GOTO 1280 'YES: SPEED UP 

1250 GOTO 1270 

12S0 IF K$=SLO$ THEN T = T+I 'IF <- WAS PRESSED t SLOW DOWN 

1270 FOR D = l TO T: NEXT D 'DELAY (SPEED CONTROL) 

1280 PRINT B$5 'ERASE AND ADVANCE CURSOR POSITION 

1290 GOTO 1200 

Each time you press ©, the object speeds up (until it reaches maximum speed; 
after that © has no effect). Each time you press ©, the object slows down. It will 
get slower than cold molasses if you press © enough times. Press @ to speed it 
up again. 

Program Notes: 

Lines 1150-1160. In this program, we're going to check for two particular charac- 
ters — the back arrow and forward arrow. These keys produce codes 8 and 9 
respectively. 
Line 1170. We combine two graphics characters to make this little rocket. 

Line 1180. B$ is a very active string. When PRINTed, it erases the preceding two 
cells, then advances the print position by 8 cells. To display the rocket, we PRINT 
A$; to erase it and advance the print position, we PRINT B$; the next time we 
PRINT A$, the cursor will already be in the advanced position. 

Lines 1220-1230 determine if a key has been pressed. If not, the speed is left 
unchanged for this go-round. 

Lines 1230-1260 adjust the speed of the object by increasing or decreasing T, the 
delay control variable. 
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Line 1270. This FOR/NEXT loop determines how fast the object moves, since it 
determines the delay before B$ is printed (erasing A$) and A$ is re-printed at the 
next position. 

Program (Do It Yourself #25-2). You can easily modify the program so that 
pressing the up arrow (key code 91) moves the print position up one line (display 
control code 27); and pressing the down-arrow (key code 10) moves the print 
position down one line (display control code 26). 

This one line adds the up-arrow feature: 

1222 IF K$ = CHR$(9i) THEN PRINT B$ ? CHR$(27) ?s GOTO 1200 

Add line 1224 to provide the down-arrow feature. 

Compare your answer with ours in Appendix A. 



0* Chapter Checkpoint #25 

1. INKEY$ the character currently stored in TRS-80's key latch. 

2. There are two keys that will not be "seen" by the INKEY$ function — they are 

( ) and ( 1 O. 

3. The built-in function comes in handy whenever you need to 

enter a number within an INKEY$ function. 
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Does Your Data Go Away (When the Power Goes Off)? 

No, that's not a song title — it's a serious question. You've been saving programs 
on tape for quite a while now, reloading them hours or days later. But what 
about the data that is input to your programs — or the results that are output by 
the programs? How can you save that? 

Good news — you already know most of what you need, namely, INPUT and 
PRINT. With slight modifications, these two statements will save all your data 
on tape, and read it back when you need it during program execution. 

Furthermore, PRINT can be slightly modified in another way to send its output to 
a line printer instead of to the display. 



We'll Start with Tape I/O 



To change PRINT and INPUT from display to cassette operations, you need only 
add a special "device tag," # - 1. For example, (don't type these in): 

PRINT #-1, 12345 

INPUT #-1, A 

The device tag tells TRS-80 you are addressing the cassette rather than the 
display. 

Punctuation for PRINTing to cassette is simple: you just add a comma after every 
PRINT item except the last. This comma has nothing to do with the video PRINT 
comma; it merely separates the items in the PRINT list. 



For Model I Owners Only; If you have the 
Expansion Interface, you can address either of two 
cassettes, by using tags #-1 and #-2. 
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Set up your recorder by pressing the PLAY and RECORD buttons, then run this 
demonstrator: 

NEW 

10 PRINT "NO PUNCTUATION t PLEASE" 

20 INPUT "ENTER YOUR NAME" ; N* 

30 INPUT "ADDRESS" 5 AD* 

40 INPUT "CITY"; CT$ 

50 INPUT "STATE - ZIP CODE" 5 SZ* 

60 INPUT "AGE" 5 AG*. 

70 INPUT "PRESS <ENTER> WHEN RECORDER IS READY TO RECORD" 5 X 

80 PRINT "RECORDING ♦ ♦ ♦ " 

30 PRINT #-1 t N* * AD* ♦ CT$ t SZ$ * AG*. 

100 PRINT "THE INFO IS NOW SAMED ON TAPE" 

110 PRINT "TURN OFF THE RECORDER" 

LINE 90 stored all the information on tape. We could have used separate PRINT 
# - 1 statements for each variable, but PRINTing them all with a single statement 
uses less tape and time. 

To retrieve the data, you simply execute a single INPUT #-1 statement to match 
the PRINT #1. Type in this program: 

NEW 

200 PRINT "REWIND THE TAPE TO THE BEGINNING" 

210 INPUT "PRESS <ENTER> WHEN THE RECORDER IS READY TO PLAY" 5 Y 

220 INPUT »-l»Nl$»Al*fCl$fSl$tGlZ 

230 PRINT "DATA HAS BEEN READ IN* TURN OFF THE RECORDER" 

240 PRINT "HERE'S WHAT WAS READ" 

250 PRINT Nl*: PRINT Al$: PRINT CI*: PRINT SI*: PRINT G1Z. 

Simple, isn't it? To keep it simple, follow these rules: 

1. Always start recording at the beginning of a "clean" tape. Use a new one or 
bulk-erase an old one. Use a leaderless tape (one in which the entire tape can 
store recorded information). 



r 
r: 

i: 
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2 The INPUT #-2 statement must match the PRINT #-i statement that created the 
' tape in terms of number of values in the item list, and type of variables. It's 
okay to output both numbers and strings with a single PRINT #-1, but be sure 
to input them in the same order with the INPUT #-i. Compare lines 90 and 220 
above: different variable names, yes, but the number of variables and the 
sequences are the same. 

3. Don't put too many values in the cassette PRINT list If you do, the extra ones 
will never get written (even though no error message will appear). To be 
specific, a single cassette PRINT statement can output a maximum of 248 
characters — this includes every space, digit, letter and other symbol in- 
cluded in your data. 
To gauge how many characters a PRINT #-l statement will write, figure out how 
many characters an identical video PRINT statement would output to the dis- 
play. Then add one additional character for each comma required in the cassette 
PRINT list. 

Trouble-Shooter (Do It Yourself #26-1). Two of the following PRINT #-i 
INPUT # - 1 pairs contain errors according to rules 2 and 3 above. Find them, and 
explain what's wrong with them. In every case, assume: 

A*="J0HN JACKSON" 
B$=STRING$<140 * "#"> 
X=i ,234567890 
Y=3000*0001 

Pair #1: 

PRINT #-1 »A*tB$»X»Y 
INPUT *-l * H$* L$ 

Pair #2: 

PRINT *-l»K»Yt X + Y 
INPUT #-1 »A»B t C 

Pair #3: 

PRINT #-1 »A$»B$ 
INPUT #-1 * H$ t D$ 

Pair #4: 

PRINT *-l t "THIS IS THE FIRST ITEM" * 1 * 2* 3 

INPUT *-i »T$* At BtC 
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Pair #5: 

PRINT #-1 t X f B* t Y t B$ 
INPUT #-1 * XI f L$, Zl t Gl* 

Hard Copy 

You haven't "really" got a full-fledged data micro-processing center until you 
can churn out reams of paper filled with important figures. 

First You Get a Printer. . . 

There are many Radio Shack models to choose from. Some print on aluminized- 
paper (for the economical space-age look), others on regular paper. Some print 
up to 132 characters per line; others 80, etc. Some can even print the full ASCII set 
(upper and lower case, etc.). 

. . . Then You Add an L 

That's right, a simple L is all you need to change display-PRINT into line printer 
PRINT. The same L will turn display-LIST into line-printer-LIST. For example: 

100 INPUT "WHAT DO YOU HANT TYPED" * A$ 
110 PRINT "HERE'S YOUR HARD COPY ♦ ♦ ♦ " 
120 LPRINT A$ 

Assuming youVe got a printer connected and on-line, run the program. To LIST 
the program to the printer, type: 

LLIST 

Everything you know about LIST applies to LLIST, and most of what you know 
about PRINT applies to LPRINT ... In fact, the only thing that absolutely doesn't 
work with LPRINT is the ©-position operation. USING and TAB work exactly the 
same and commas and semi-colons have the same effect with one exception — 
trailing punctuation. 

On the printer as on the display, trailing PRINT punctuation suppresses the 
automatic carriage return. But unlike the display, the printer may not "wrap 
around" when the line gets too wide for the paper or for the printer itself. For 
this reason, use trailing semi-colons only when you know there will be a 
carriage return before the line exceeds the limits of the paper or of the printer. 
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You can output control codes to the printer like this: 

LPRINT CHR* (code) 
but the effect the code has depends on the printer. See the line printer owner's 
manual for details. 



0* Chapter Checkpoint #26 

1. Which of the following will NOT get you in touch with the line printer? 

a. LLIST 

b. LLINE 

c. LPRINT 

2. To change PRINT and INPUT from display to cassette operations, you need 
only add the special device tag, 

3. Can you identify the correct pair? 

a. PRINT #-1, 12345 
INPUT #-1, A 

b. PRINT 12345, #-1 
INPUT A, #-1 

4. In order to save your data (and keep your sanity in the process), you should: 

a. always use a "clean" tape 

b. match your INPUT statement to your PRINT statement 

c. not put too many values in the cassette PRINT list 

d. all of the above 

e. none of the above 
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Peeking and Poking Down Memory Lane 

Back in Chapter 4, we said that a variable was a name for a place in memory. In 
Chapter 17 we said the CLEAR n command reserves space in memory lor string 
storage. In Chapter 16, we also said that DIM reserves space in memory for array 
storage. 

Those three references are the closest we've gotten to exploring how your 
Computer holds the information you input. 

That's one of the advantages of BASIC (or any high-level programming lan- 
guage) It frees you from concerns over minute details involving the use ol 
memory. You can write a program focusing on the problem at hand, letting 
BASIC take care of "internal" considerations (where will this and that value be 
stored, etc.). 

Still, there are advantages to "direct memory addressing." In this chapter, we're 
going to take a quick look at some of them, focusing on a few special cases. We 
won't go very far though, because the subject gets very complicated very quick- 
ly. For a more in-depth treatment, we recommend a couple of Radio Shack 
books: 

LEVEL U BASIC Programming Techniques, 

by William Barden, Jr.; Catalog Number 62-2062. 
TRS-80 Assembly Language Programming, 

by William Barden, Jr.; Catalog Number 62-2006. 
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A Byte without Teeth 

You've already encountered terms like 16K RAM and 12K ROM. Generalized 
definitions of these terms are easy to come by (see the Glossary in your Compu- 
ter Owner's Manual), so we'll focus on how they apply to your TRS-80. 

The T in RAM and ROM stands for "memory." The "RA" and "RO" stand for the 
two kinds of memory, "random access" and "read only." Random access is often 
called read/write memory, since you can read its data and write new data into it. 
Read only memory, on the other hand, has a permanently fixed contents; you 
can read it, but cannot write new data into it. Your TRS-80 Computer contains a 
BASIC language interpreter in 12K of ROM; it also contains either 4K or 16K of 
RAM. 

6K, 12K, etc. are measures of how much memory you've got. One "K" contains 1024 
units of memory, so 16K = 16384 units. 

The unit of memory is the byte. A byte can store a value from zero to 255. (If you 
want a larger range of numbers, you'll need more than one byte. For example, to 
store an integer-type variable, BASIC always uses two bytes.) 

Every byte in the Computer's memory has its own address. In your TRS-80 
Computer: 

• The 12K ROM occupies addresses zero through 12287. 

• Addresses 12288 through 16383 are reserved for special purposes (we'll look at 
some of these shortly). 

• Your 4K RAM (or 16K, or whatever you have) starts at 16384. However, TRS-80 
takes some of this for internal "bookkeeping" functions. 

• The memory that actually stores your program starts at 17129. 

• In a 4K Computer, memory ends at 20479; 16K, 32767. 
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How to Read a Byte of Memory 



There's a simple function that tells you the contents of any memory location. 
The function is PEEK. 



290 



For example, the statement: 

PRINT PEEK (15360) 
prints out the contents of memory address 15360. (One of those special-purpose 
addresses.) 

PRINT PEEK (20000) 
This doesn't print the number 20000, it prints the contents of address 20000. 

How to Write into a Byte of Memory 

Before continuing, be forewarned: Some of the RAM addresses in your TRS-80 are 
used by the Computer to store important information. You might say these 
addresses help the Computer maintain its sanity. If you write new information 
into these addresses, your Computer is going to start behaving very strangely — 
or not behaving at all! In such cases, you'll have to turn the Computer off, then 
turn it on again a few seconds later. No harm to the Computer — but your 
program will be lost. (So before changing memory addresses directly, save your 
resident program on tape!) 
In this chapter, we're going to write only to the "safe" addresses. 

The BASIC statement that writes to memory is POKE (It's a well-chosen word, 

with its suggestion of intruding into someone else's business. Because when you 

POKE, you are bypassing BASIC. BASIC may not like that. So POKE gently and 

carefully!) 

POKE requires two input values, an address and a value to be written to that 

address. For example: 

POKE 15360, 191 
writes 191 into address 15360 




Notice anything happening on your display? Good. 
Read on! •,•/•' 
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The Visible RAM (An Educational Toy) 

We have a good use for PEEK and POKE — one every TRS-80 programmer can 
probably appreciate, even if he or she has no interest in the technical aspects of a 
Computer. It has to do with the video display. 

For each print cell on the display (the 1024 PRINT @ locations), there is a RAM 
location storing the current contents of that cell. Well, not the contents, but the 
TRSCII values for that content. For example, immediately after a CLS (when the 
entire display is "blank"), each of these RAM locations contains a value of 32, 
which is TRSCII for a blank space. 

We call this portion of memory "video RAM." Its sole purpose is to store the 
contents of the display. When you PRINT something, BASIC changes video RAM. 
The display then changes automatically to match the contents of video RAM. 

Video RAM occupies the addresses from 15360 to 16383. That's 1024 in all — one for 
each print cell, remember? The contents of cell is stored in 15360, 1 in 15361, etc. 
In general, the contents of print cell N is stored in N + 15360. 

Therefore, when you peek at an address in video RAM, you should get the TRSCII 
for the current contents of the corresponding print cell. 
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RUN this program for a demonstration: 

NEW 

10 CLS 

20 PRINT @ 512 f "PRESS ANY TEXT KEY" ; 

30A$ = INKEY$: IFA$<" " THEN 30 

40 PRINT @0>A$ 

50 PRINT "PEEK* 15360)=" i PEEK ( 153G0) 

S0 GOTO 30 

The program echoes your keyboard input (as long as you enter non-control 
characters) at print cell 0. Then it reads the contents of video RAM address 15360, 
which always contains the TRSCII for whatever is in cell 0. 

PEEKing video RAM is very important, because it's the only way a program can 
read the current contents of the display (You can see the display, but your 
program can't). 

The following program lets you type in one video "page" of information, then 
stores the page in an array when you press ®. The only keys recognized are: text 
keys, ©, fENTER) and ®. 

NEN 

110 CLEAR 16*64+255 'ENOUGH FOR STRING ARRAY+SOME 

120 DEFINT A-Z: DIM V$<15> 'V$( ) WILL STORE DSPLY CONTENTS 

130 MM = 153S0 'START OF UIDEO RAM 

140 PRINT CHR$(14) 5: CLS 'CURSOR ON AND CLEAR SCREEN 

150 A$=IIMKEY$: IF A$= I,n THEN 150 

160 IF A$>CHR$(31) THEN PRINT A$ 5 : GOTO 150 

170 IF A$=CHR$<8) OR A$ = CHR$(13) THEN PRINT A$ 5: GOTO 150 

180 IF A$ = CHR$( 10) THEN 200 

190 GOTO 150 'IGNORE ALL OTHER KEYS 

200 PRINT CHR$(15) ; 'CURSOR OFF BEFORE READ DSPLY 

210 FOR LI=0 TO 15 'LINE NUMBERS 

220 START = LI*G4 + VM 'RAM ADDRESSES t COLUMN 

230 FOR CL = TO S3 'COLUMNS 

240 AD = START + CL 'ACTUAL PEEK ADDRESS 

250 V$(LI)=V*(LI)+CHR$(PEEK (AD) ) 'BUILD A LINE 

260 NEXT CL > LI 

270 CLS: PRINT "PAGE IS STORED . ♦ # " 
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Run th e program. Type in several lines — as you would on a typewriter, pressing 
(ENTER) to start a new line, or letting TRS-80 provide an "automatic carriage 
return" after column 63. Use the © to erase errors. When you are ready to save 
the display contents, press (£. There will be a short intermission while the 
program reads every address in video RAM into an array. (To display the 
contents of the array, see DJ.Y. #27-1.) 

Program Notes: 

Line 140 turns on the cursor for your convenience in entering characters. 

Lines 160-180 check for valid key entries. If you have entered a text key, ©, or 
^NTER), TRS-80 prints the character. If you entered a ®, TRS-80 drops out of the 
loop and starts reading video RAM. Any other key you press is ignored. 

Line 210 lets LI ("line") range from zero to 15. LI will be the index for the current 
array element in v$(). It will also be used to compute the current video RAM 
address. 

Line 220: START will count by 64's from 15360 to 16320. These are the RAM 
addresses of the column cells on each display line. 

Line 230: CL ("column") ranges from zero to 63, and will be used to pinpoint the 
exact memory address for PEEKing. 

Line 240: AD is the current address in video RAM. 

Line 250 builds up each element in V$(). Each element will contain 64 characters. 

Program (Do It Yourself #27-1). Add lines to the end of the program to print 
out the array contents. Then run it again; type in new text; press (J); then watch 
the Computer save the screen, CLS, and re-print it. 

Special challenge for look-ahead experts: Try to prevent scrolling when the last 
line is printed. 

How to Write into Video RAM, or 

POKE, the Ultimate Weapon Against the Auto-Scroll 

Remember the POKE example: 

POKE 15360, 191 
Knowing about the visible RAM, you can now understand why that white block 
appears at cell 0. Aha! An alternative to PRINTing! 
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Program (Do It Yourself #27-2). Write a program to POKE TRSCII codes 32 
through 191 into video RAM addresses 15360 through 15519. Be sure not to POKE 
outside video RAM! 

Don't get too carried away with POKE as a video output operation - PRINT is still 
the most efficient way to output lines to the display. POKE can output only one 
character at a time to the display, while a single PRINT statement could fill the 

There's one major reason to POKE video RAM — to output to the display without 

moving the cursor. More to the point, POKE lets you output a character into the 

bottom right corner of the display without causing a scroll. 

The address of that corner is 16383. So try this immediate line: 
\ POKE 1G383, 131: PRINT @0» "LOOK - NO SCROLL ! ! !" 

' Now make these changes and additions to the resident program (the one that 
i reads the display contents into an array). You will then be able to fill the entire 
1 display with the array contents without producing a scroll: 

280 INPUT "PRESS <ENTER> TO CONTINUE" 5 X r^j 

I 230 FOR LI=0 TO 14 k 

I 300 PRINT U$(LI) 5 

310 NEXT LI 
! 320 PRINT LEFT$(V*(LI) t 63) 5 

I 330 POKE 1G3B3, ASC (RIGHT* ( V* ( LI ) » 1)) 

340 GOTO 340 
1 

Repeating Keyboard Trick (Model I Only) , f9TW 

When you want to repeat a key, it takes two separate keystrokes, right.' lhat 
prevents accidental key entries from occurring when you hold a key too long. 
But for some special applications, it's nice to have a repeating keyboard. 

You can "install" this feature in your TRS-80 without opening the case (and 
voiding your pedigree). It's all done with — no, not mirrors — POKE. 
Addresses 16437-16444 store "flags" telling whether the keys have been released 
since they were last pressed. If you POKE a value of zero into each of these 
addresses before doing an INKEY$, TRS-80 will think each key has been released 
and is active again. So you can fool your Computer into providing a repeat-key 
function! 
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Try this program: 

NEW 

400 CLS 

410 A$=INKEY$: IF A$<" " THEN 410 

420 PRINT A*5 

430 FOR 1 = 16437 TO 1B444: POKE I >0: NEXT I 

440 GOTO 410 

Run it. Try holding down any text key (all others are ignored). 

Can you think of ways this technique can improve your game programs? Sure 
you can! 

Other Direct Memory Access Functions 

VARPTR Variable Pointer. Returns the address of the bookkeeping area for a 
specified variable. 

USR User. Transfers control from your BASIC program to a non-BASIC "machine- 
language" program. 

INP and OUT Input/Output to any of TRS-80's 256 "ports". 

But all these subjects require a considerably more technical level of 
understanding than we've tried to give in this book. Not that they're that 
difficult. . . To investigate this programming frontier, take a look at the books 
we referred to at the beginning of the chapter. 



'^^^^^^^^^^^^^^^^^^m 
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ST Chapter Checkpoint #27 

1. PEEK and POKE are: 

a. a couple of stand-up comics 

b. ways to examine and change contents of a memory location 

c. ways to increase screen resolution 

2. Which of the following are correct formats? 

a. PEEK (value) 
POKE address, value 

b. PEEK (address) 
POKE address, value 

c. PEEK (value) 

POKE (address, value) 
3 POKE 15360, 191 might be interpreted to read: 

a. Insert the character symbolized by ASCII code number 191 into memory 

slot 15360. , . x 

b. Insert the character symbolized by ASCII code number 15360 into memory 

Slot 191. 

c. The RAM address is malfunctioning. 

4. (RAM) (ROM) is TRS-80's permanently fixed memory. 

5. You now know three ways to output to the video display. 
They are -, > and 
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Lion-Tamers, Fire-Eaters and Error-Handlers 

By the time you've finished this chapter, you'll know what error-handlers have 
in common with the first two occupations. But first, what is an error-handler? 
It's a routine that takes control when an error occurs during program execution. 
Normally, errors cause TRS-80 to end your program and display an error mes- 
sage. But with an error-handling routine, your program can tell the Computer, 
"Calm down, I can handle that!" when an error occurs. 

The benefit of such a routine is that it lets your program try to take care of the 
error and keep going, avoiding at all costs the dread message: 

?XY ERROR IN LLLL 

Before giving you the keys to this powerful technique, we had better make it 
clear how and why we've managed without error-handlers thus far. Its ail 
summed up in two words: 

Preventive Programming 

We've come a long way without error-handlers, simply by making sure errors 
won't occur. For example, RUN this program: 



10 INPUT "INPUT A NON-ZERO NUMBER" ! X 
20 PRINT "THE RECIPROCAL OF 
30 PRINT: GOTO 10 



1/X 
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What happens if you ignore the prompt's instructions and input the number 
zero? Blows your program, doesn't it? Preventive programming tells us to add 
the following line: 

15 IF X = THEN 10 

Now the program won't let you input an undefined value. 







UFO #28-1 §m jBme^ progmrn^ 






An Unpreventable Error 

The above resident program isn't really error-proof. Can you think of an input 
that will still generate an error? 

Typing in a non-numeric value won't do it; TRS-80 is smart enough to ask for a 
proper value and repeat the INPUT operation. What other input value might 
cause an error? 

You are inputting to a numeric variable. Remember the range for numbers? It's 
approximately - 1E38 to + 1E38. So, try inputting a value like 1E50. 

? OU ERROR IN 10 
So there you have it — an error that can't be prevented. . . or can it? 

Challenge (Do It Yourself #28-1). Think of a way in which even this last kind 
of error could be prevented. Don't accept this challenge unless you enjoy work- 
ing on impractical answers to unlikely problems. 

Hint: Input the number as a string, and go from there. 

Well, maybe there is a way to prevent this kind of error. But as sure as you figure 
it out, another big error will come along, requiring its own deluxe prevention 
program. At that rate, you'll never complete a practical program before running 
out of one of the three basic programming resources: time, RAM, and patience. 
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Introducing Dr. Sledge the Unsinkable 

Now you're ready to appreciate Dr. Sledge, our first error-handler. He refuses to 
be undone by any overflow (or other) error that occurs. 

Type in this new version of the program: 

NEW 

5 ON ERROR GOTO 100 

10 INPUT "INPUT A NON-ZERO NUMBER" 5 X 

15 IF X = THEN 10 

20 PRINT "THE RECIPROCAL OF "iXi"IS »!1/X 

30 PRINT: GOTO 10 

100 'DR SLEDGE t ERROR HANDLER 

110 PRINT "*** VALUE OUT OF RANGE ***" 

120 PRINT "NUMBER MUST BE BETWEEN -1E38 AND +1E38" 

130 RESUME 

Now run the program, and try entering any out-of-range number. Sledge has it 
under control, right? 

UFO #28-2 Error-handling involves a pair of statements: one tells trs-so to 
transfer control to the start of your error-handler in case an error occurs, 
the other terminates your -erra^li^Uhd-roufi^^^! 81 ^:^^™;;-.-. 1 
Where to continue The statements are: 

ON ERROR GOTO ///?e 

where line is the starting line of your error-handling routine. 
When trs-so executes the on error goto statement, it does not transfer control to the 
routiner it simply enables (activates) the routine for use in case an error occurs. 

RE ^ereSySrefSeGutibii resumes after exit from the error-handling routine. If 
line is omitted, execution resumes at the statement in which the error occurred. If 
resume next is used, the program resumes execution at the next statement after the one 

Thifstatement end°sthe error handling routine and returns control to the specified line in 
your program. 
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RW stands for "RESUME without error". (You'll find 
out that every error-handler must end with a RESUME 
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Program (Do It Yourself #28-2). Sledge handles errors by asking for another 
keyboard input. This is a very forgiving response (rather uncharacteristic of 
bledge by the way). Suppose we want to be heavy-handed about it: "You had 
your chance to input a decent value and you blew it. So we're going to provide 
our own value for you. . ." F 

Seriously, such approaches are sometimes justified. 

After saving the existing program, modify it so that the error-handler sets X = 
1E38, displays a message to that effect, and resumes execution at the next 
™ mei ! m mSin ^ v °S ram - ( Sounds I** a good application for RESUME 

Check your answer against ours in Appendix A. 

Having a routine like Dr. Sledge really puts your mind at ease, right? If 
anything goes wrong, the doctor will take care of it. . . 

Yes, he will. But will his solution be appropriate to the problem? 

Notice that the Doc has no way of knowing what kind of error brought him into 
power. Well, we re just assuming it was an OV ERROR. What happens if another 
kind of error occurred? 

For example, change line 20 of the resident program to contain a deliberate typo: 

20 PINT "THE RECIPROCAL OF" 5 X5 "IS"! 1/X 
Now RUN the program again. 

te^ k i n H d / err ° r w dHng Can giVe the Practice a bad name: Dr - Sledge can't 
tell the difference between a syntax and an overflow error! 

Pinpointing the Error 

SniTwWr^T Whkh ^ eSpeClaUy US6ful inside error-handlers. One 
ihe^otu^T r ° r ° CCmTed; ^ ° ther ^ y ° U Wh6re (in What line > 
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ERR/2 + 1 (It's a Lot Easier Than E = M C 2 ) 

Every TRS-80 error condition has an error message. The message is what the 
Computer prints when it handles an error. For example; 

?SN ERROR IN XXXX 
Every error condition also has its own error code. The code for a syntax error is 1. 
See Appendix C for a complete list of error codes and messages. 

TRS-80 always stores the code of the last error that has occurred since you typed 

WW (the code = Oifnoerror has occurred).If your error handler can look at this 

value, it will know what kind of error it's supposed to handle. 

The function ERR/2 + 1 returns this current error code. 

Back to our example. We're after overflow errors; looking at ; th. .appendix we 

see that code 6 means overflow. So make these changes and additions to the 

program: 

101 IF ERR/2+l = G THEN 110 
105 RESUME 
T iT,Pim checks the currenterror code. Kit is 6 (overflow), the program will GOTO 

Unenoatd^ 

line 105, whkh ENDS the error-handler and returns control to the error-causing 

statement. 

Put a syntax error in line 20, and run the program. When you type in a good 
vleforttheComputer appears to ^op- but RE^Y never comes bac^ Press 
(BREAK), turn on the trace (TRON), then run it again, typing in a good value for X. 
Notice'that the program is lopping like this: 

<20> <100> <101> <105> <20> <101> <105> <20>. . . . 
Can you figure out what's wrong? 

The syntax error activates Dr. Sledge. Then line 105 returns control to the point 
of the error. But the error occurs again! It happens over and over. 



the 72 + 1? That's jus 
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Here's the complete program: 

5 ON EiRRDH-GOtailM '■';.;'■■.: - = ; .=ir.V : ^-: ! 
10 INPUT "IMPUT A NON-ZERO; 

■ NUMBER"? X ■ 

15 IF X^S THEN 10 ' ^ j ■ ^:. ■ : ;; : : ; : 
; 20 PINT "THE RECIPROCAL OF " v; ; ] 

: : U; : X! VlS- " ? i/X 
30 PRINT: GOTO 10 ■' 
100 ' OR St EDGE » £RR0R HANDLER; ; ; 

■ : : i0liF€RRy2+l=l-THEN;i : i^V;a;v: : ;;-;:-V ; 

,.10.5RESUH.E.- : :U.:.,.: '■Vi^'MU^ 
■} ti« PRINT »**i*MALUE OUT OF; RANGE 

- : : ; ' 120- -PRINT- '''■MUMfiER iV :irtUsSyv^E : ,; 
■ V. ■■■ . BETWEEN ^1€38 rtN0,*if§&^,r ; 

flilliilltMiW 



Press «ro then (ffiffi) to get out of the program. 
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Turning Off the Error-Handler 

This is one error Dr. Sledge cannot handle. We might as well let TRS-80 interrupt 
the program and take its standard approach to such errors (start you in the edit 
mode for that line). But how do we tell Dr. Sledge to give up and let TRS-80 take 
over? We use a special form of the statement that empowers Dr. Sledge in the 
first place: 

ON ERROR GOTO 
It doesn't matter whether your program contains a line 0; the in this line 
simply disables the error-handler. After disabling Sledge, we can resume 
normal execution in the main program. Any error that occurs will now be 
handled by TRS-80. Dr. Sledge is powerless until we execute another ON ERROR 
GOTO 100 statement. 

To try this out, change line 105 to 

105 ON ERROR GOTO 0: RESUME 

Now run the program. It now handles overflow errors, and lets TRS-80 handle all 
others. 
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Just Where Did the Error Occur, Ma'am? 

The function ERL ("error line") returns a number telling you the program line 
where the error occurred. (If no error has occurred, or if the error occurred in the 
immediate mode, it returns a value of 65535.) 

For example, fix the typo in line 20 (PRINT instead of PINT), then make these 
additional changes: 

110 PRINT "ERROR OCCURRED IN LINE" 5 ERL 
Now RUN the program. 

In some applications, your error handler routine may need this information. For 
example, add these new lines and changes: 

30 PRINT X; "TO THE 10TH POWER IS" 5 X " 10 

a0 PRINT: GOTO 10 

110 IF ERL <> 30 THEN 120 

112 PRINT " TOO LARGE" 

114 RESUME 10 



Your program should look like this: 
5 ON ERROR GOTO 100 
10 INPUT "INPUT A NON-ZERO 

20 PRINT "THE RECIPROCAL OF 

" !K! "IS "5 1/X 
30 PRINT XT "TO THE 10TH POWER 

100 'DR SLEDGE. ERROR HANDLER 

101 IF ERR/2+l=6 THEN 110 

110 IF ERL <> 30 THEN 120 
112 PRINT " TOO LARGE" 

120 PRINT "NUMBER MUST BE 
BETWEEN -1E38 AND +1E38" 
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Now RUN the program. Enter small values like 5, 10, - 5. So far, so good Enter an 
^"valS like 5E50. That provokes the original portion o he = 
handler . Now, enter a value like 50, which causes line 30 to compute 10 to the 50th 
power which is too large for the Computer to handle. 

LinellOdetermineswhetherthe error occurred in the keyboard input line (20) or 
in the computation line (30), and takes appropriate action. 




Testing an Error-Handler 

Suppose you have just installed a beautiful new error-handler in a program. 
Ss absolutely no error that can blow your program. Every possible error 
invokes a different portion of your error-handler. 

Now you want to see the error-handler at work. So go ahead, TRS-80, start erring! 
You wait patiently and no error occurs. Of course - your main program will 
perform perfectly when you want it to fall to pieces. You could rewrite the 
prfg^i forcing the various errors to occur. But that takes time - and when 
you're done, you no longer have your original program! 

TRS-80 has the answer: a statement that simulates errors, so your error-handler 
can show its stuff. 
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Type in these lines in the immediate mode: 



ON ERROR GOTO 
ERROR S 
ERROR 2 
ERROR 11 



You should have received error messages for overflow, syntax, and division by 
zero, respectively. 



ON ERROR GOTO is just m case your error-handler is 




ft&; UFO #28-4 To provoke one of Basic's error messages, use the appropriate 

erbor code 
iffij where code is a numeric expression for a valid error code. A 
/ complete table of errors is in Appendix C. 



To test an error-handler, you simply insert the ERROR statement at the point in 
your program where the specified error is likely to occur. The program will 
behave just as if that error had occurred in the line containing the ERROR 
statement. 

Two Useful Error-Handlers 

The program below shows two practical uses for error-handlers. Notice that you 
can have more than one error-handler in a single program, simply by executing 
an ON ERROR GOTO statement each time you are ready to disable one routine and 
enable another. 

10 'STRING INPUT ROUTINE 

20 CLEAR 25 

30 ON ERROR GOTO 100 

40 PRINT "FAMORITE TYPE OF FRUIT (25 CHARACTERS OR LESS)" 

50 A$="" s INPUT A* 

G0 GOTO 200 

100 'ERROR HANDLER #1 

110 IF ERR/2+l = 14 AND ERL = 50 THEN 130 'PINPOINT IT 
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120 ON ERROR GOTO 0: RESUME 'LET BASIC HANDLE -OTHERS 
130 PRINT "OUT OF STRING SPACE--TYPE IN 25 LETTERS MAX 
140 RESUME 40 'RESUME AT PRINT STATEMENT 
200 'READ-DATA WITH ERROR HANDLING 
210 ON ERROR GOTO 300 

230 IF A A D * = B* THEN PRINT -HE HAVE SOME! ! I " i RESTORE: GOTO 40 

?50 PRINT 2 "WE DON'T HAVE ANY" : RESTORE: GOTO 30 

270 DATA APPLE , CHERRY , PEAR , PEACH , WATERMELON , ORANGE 

280 'YOU CAN ADD YOUR OWN FAVORITES HERE 

300 'ERROR HANDLER «2 

T1fl IF ERR/2+l=4 AND ERL = 220 THEN 330 

320 ON ERROR GOTO 0: RESUME 'LET BASIC HANDLE OTHERS 

330 PRINT "OUT OF DATA" 

340 RESUME 250 



Run the program. Type in the name of a type of fruit. The program will compare 

what you typed with its DATA list of fruits. If it finds a match before exhausting 

the list, it'll tell you so. If it exhausts the DATA list first, it'll handle the OD error, 

then continue. 

The program handles OS and OD errors — errors that are sometimes impossible 

or impractical to prevent. 

Program Notes 

Line 20- For illustration purposes, we want only 25 characters of string space 

available. (Be sure to put CLEAR statements ahead of ON ERROR GOTO, since 

CLEAR cancels the effect of a prior ON ERROR GOTO.) 

Line 30: Enables error-handler #1. 

Line 50- Clears out the current contents of A$ and inputs a new value. 
(0?her^ise when you press (BOH) without a fruit name, A$ will retain its 
previous value.) 

Line 110: If this test passes, we know an OS (out of string space) error occurred in 

line 50. 

Line 120: If the test in line 110 fails, the error is one we didn't plan for. So we let 

TRS-80 handle it. 

Line 210 enables error-handler #2 and automatically disables the one at line 100. 



eTetrtovoke error handler #1, type in: 

PICKLED RUMANIAN WATERMELON 



307 



Lines 220-240 READ a value, compare it with A$, and continue doing this until a 
match is found or the DATA list is exhausted. We don't care how many items are 
in the data list, since the error-handler #2 will take care of OD (out of data) 
errors. 

Line 300 finds out if the error is the one we expect. If it's not, line 310 lets TRS-80 
handle it. If it is, line 330 lets execution resume at line 250. 

Now what has error-handling got to do with lion-taming and fire-eating? If you 
haven't discovered the similarity yet. . . either 

A. You haven't experimented with ON ERROR GOTO and RESUME yet, or 

B. You are a very careful programmer and have avoided the dangers quite well 
(or maybe you've never tamed a lion, for that matter). 






:'.:-::.'• '••'■ : :'.-; : •':•: 






^ ' ^^^^^JF % lie;11ra^hifi0 ait erro^ndler should do is pinpoint the error 
3 If an unexpected eitp itself and let the 

i -''^ ; H:;.<c»i : :^ti«0!R .ei^'^^iisui^vr ? V-v^."-"--;- : 

4; Every error-handler rhiist end with a resume statement. Use 



terror-causing sfjaterrient, 
to sk^ 

to t resume execution at another point in the main program. 
5; When an ent)r-handl^ turn It Off with ON error 

& Make sure trs-ot doesn't executeanerrojvhahdierwhennoerror has occurred. Put an 
"- -*atement, a goto, or some other y 'rdadHblock" just in f-"-* -' "-- ^— ^ "-- 



•• './. : :'. : .- 



;--'- ; .-':'-vv.'-:>"' : ! 



')'-'h& doesn't get c&i$e^ 

; shaking, of course — contrary to m^ 
ereor-handler will iiot destroy your machine!). 
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Sf Chapter Checkpoint #28 



Simply put, error-handlers allow you and your program to: 

a. ignore the prompt's instruction 

b. stroll on down the avenue 

c. continue when an error occurs during execution 

2. (TRUE) (FALSE) ON ERROR GOTO 100 terminates your error-handling routine 
and tells TRS-80 where to continue. 

3. A common error message related to improper error-handling is: 

a. NF 

b. OD 

c. RW 

J T-p 

4. When you don't need an error-handler in your program anymore, you can 
turn it off by: 

a. telling a few bad jokes 

b. typing ON ERROR GOTO 

c. typing TURN OFF 

d. typing RESUME NEXT 
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Now You've Done It . . . 

That's the end of our exploration of TRS-80 BASIC. We hope it's just the beginning 
of your own. In Appendix B, you'll find some additional programs for 
amusement and illustration. (And if you haven't checked our D.I.Y. answers in 
Appendix A, now's as good a time as any . . . There are several complete, 
stand-alone programs you may enjoy.) 
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Do-It- Yourself and Checkpoint Answers 



D.I.Y. # 1-1 

Press the 5) key. Whether you get "♦" or "C" depends on which Model 
TRS-80 you've got. When we ask for a " ♦," press ®. 

D J.Y. # 1-2 

Press (!) or (INTER) . CD does not "end" the line; (INTER) does. More on this in 
Chapter 2. 

D.I.Y. # 1-3 

The number zero is slashed "0" to help you tell it apart from the letter "0 ." 
We'll use slashed zeros when Computer information is displayed. 

Chapter Checkpoint # 1 



D.I.Y. # 2-3 



1. a 2. ">" 

5. double-size 



3. c 4. (ELEAR) 

6. fSHim ^ 7. e 



PRINT 83 + 11/21 - 33.7 (HUE) 
D.I.Y. # 2-4 



PRINT 12345000 * 70010* 101 CENTER) 
D.LY. #2-5 



PRINT "100 + 200 = " 5 100 + 200 (INTER) 
Chapter Checkpoint # 2 



1. NEW 2. error 3. (ENTER) 4. (BREAK) 5. PRINT 



D.LY. # 3-1 



t 



10 CLS 

20 PRINT "I LIKE STARS" 

30 PRINT STRING*<50> "*") 



D.I.Y. # 2-1 
Try these: 



PRINT h2»3» 4 (ENTER) 
PRINT 15 25 3, 4 (ENTER) 
PRINT 1*253*4 (ENTER) 



etc. 



D.I.Y. # 2-2 

PRINT 1/3 dNTEffietc. 



D.LY. # 3-2 

10 CLS 

20 PRINT "1/2="; 1/2 
30 PRINT "1/3=" 5 1/3 
etc., up to 

90 PRINT "1/9=" 5 1/3 

Chapter Checkpoint # 3 

1. instructions 2. LIST 3. line 4. RUN 
5. line number 6. c 
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D.LY. # 4-1 



10 
20 
30 
40 
50 
60 
70 
80 
90 



CLS 

PRINT "HI! I'M YOUR TRS-80 COMPUTER! !" 

PRINT "WHAT'S YOUR NAME?" 

INPUT N$ 

PRINT "HELLO " ? N* 

PRINT "HOW OLD ARE YOU TODAY?" 

INPUT AG 

D = AG * 3B5 + 385 

PRINT N$5 " WILL BE"5 D5 "DAYS OLD ON NEXT 

BIRTHDAY*" 



Chapter Checkpoint # 4 



1. Statement: name-it, input/output, graphics, program flow, and de- 

clare-it. 

2. c 3. True 4. alphanumeric information 
5. Input/Output 6. Expression 



D.I.Y. # 5-1 


10 


CLS 


20 


A = 10 


30 


PRINT 1/A 


40 


A = A + 1 


50 


IF A = 20 THEN END 


80 


GOTO 30 


D.LY. # 5-2 



Add one line: 

65 IF N* = "THAT'S ALL" THEN END 

This is our first example of a string comparison. If N$ is exactly equal to 
"THAT'S ALL," the program ends. 



D.I.Y. #5-3 



10 
20 
30 
40 
50 
60 



CLS 
A = 1 

PRINT 1/A 
A = A + 1 
IF 1/A < = 
GOTO 30 



0125 THEN END 



Chapter Checkpoint # 5 



1. IF-THEN 2. It wouldn't be fair for us to say. 
3. (SHED (1) 4. GOTO 5. comma and semi-colon 
6. b 7. a 

D.LY. # 6-1 

100 INPUT "YES OR N0"5 R*: IF R$ = "YES" THEN 

400 
200 IF R$ = "NO" THEN 500 
300 GOTO 100 

400 PRINT "THAT'S BEING POSITIVE!": GOTO 100 
500 PRINT "WHY SO NEGATIVE?": GOTO 100 



Chapter Checkpoint # 6 

1. c 2. colon 3. remark 
5. DELETE 6. LIST 



4. a-AUTO, b-SRESB 



D.LY. # 7-1 

You can do this one with the three edit commands you know. Start like 
this: 

EDIT 10 fENTEfi) 

CD PRINT: (SPAED (SHED 3) 

That takes care of the first change. You take it from there- 
Chapter Checkpoint # 7 

1. CD to insert, (SHED (£> to stop inserting. 

2. syntax 3. CD 4. b 



Chapter Checkpoint # 8 

i. mroi fSPACE) 

2. QD to hack. (SHIFT) Q D to quit. 

3. QD to e xtend. (ggB) ® to quit. 

4. c 5. (INTER) , QD and CD 
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D.I.Y. # 9-1 

1 = 1E0 1234.56 - 1.23456E3 1000.1 = 1.0001E3 
0.000123 = 0.123E-3 -300.0031 - -3.000031E2 

1.1E1 - 11 8.7654321E8 + 876543210 1E6 = 1000000 
3141593E-6 = 3.141593 0.123456E6 - 123456 



D.I.Y. # 9-2 






180 AUGZ = TTL7. 


/ 25 + 


♦ 5 


D.LY. # 9-3 






Accepted Answer: 






10 A# = 1/3 






20 B# = A# * 3 






30 PRINT B# 






Clever Sidestep: 






Change line 10 to: 






10 A# = 0*33333333333333333 


D.LY. # 9-4 






10 CLS 






20 N# = 1 






30 N# = N# * 5 






40 PRINT Ntt 






50 GOTO 30 







(17 three's) 



Chapter Checkpoint # 9 

1. a. -3.8E7 b. 1.111111E6 
4. double-precision 



2. a and b 3. b 



D.LY. #10-1 



10 CLS 

20 Y# = 1#: X# = 5» 
30 PRINT X« ♦ Y*t 
40 Y# = Y# + 1# 
50 GOTO 30 



To prove a point, we've made everything double-precision. But as you'll 
find out, there's really no reason to use double-precision here. 
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D.I.Y. # 10-2 

We start with a good guess that is too small. 

10 GUESS=1: l*!ANT = 371 *08: NEAR=1 

20 VOL = GUESS * GUESS * GUESS 

30 IF M0L < WANT THEN 50 

40 PRINT "EACH SIDE = " , GUESS: END 

50 GUESS = GUESS + NEAR 

G0 GOTO 20 

This gives the smallest side measured to the nearest unit. For the 
measurements to the nearest .25 unit, change NEAR to .25 (line 10). For 
the nearest .001 unit, change NEAR to .001; etc. 

D.I.Y. # 10-3 



and / 



+ and - 



D.LY. # 10-4 

PRINT S * 5 "• (4 / (3 +Z - 1 ) 

D.LY. # 10-5 

No answer needed. 

D.LY. #10-6 

PRINT A'£* B*» C$ 

Chapter Checkpoint # 10 

1. a. PRINT 73*2 " 2 b. PRINT IB A 3 
c. PRINT 43 A 9 

2. a. PRINT SQR (5358*24) b. PRINT 409G 
c. PRINT 5.025926E14 A (1/9) 

3. b. 



U/3) 



D.LY. # 11-1 

10 K = 0: TTL = 

20 INPUT "ENTER THE NEXT NUMBER (999 TO 

QUIT)" 5 A 
30 IF A = 999 THEN G0 
40 TTL = TTL + A: K = K + 1 
50 GOTO 20 
G0 IF K = THEN END 
70 PRINT "TOTAL = " i TTL t "AVERAGE =" 5 TTL/K 

D.I.Y. # H-2 

10 N = 

20 N = N+i 

30 IF N*N*N >= 1110 THEN 50 

40 GOTO 20 

50 PRINT N-H "IS THE LARGE3T N SUCH THAT" 

G0 PRINT "N CUBED IS LESS THAN 1110* " 

Can be done with a simple statement: 

PRINT INT (1110 "• ( 1/3) ) 



D.LY. # 11-3 

10 A = 0: INC = 2s LIM-25G 

20 PRINT A 

30 A=A+INC 

40 IF A>LIM THEN END 

50 GOTO 20 

D.I.Y. # 11-4 

10 A = 0: INC=. 1 s LIM=10 

20 PRINT A 

30 A=A+INC 

40 IF A>LIM THEN END 

50 GOTO 20 

But with this program, we see round-off errors at 7.8, etc., and we never 
get to print out the limit value, 10. 

For "perfection", change line 30: 

30 A=INT ( (A+INC)*10+45)/10 



D.LY. # 11-5 



10 A = 0: INC=1 : LIM = 59 

20 PRINT A 

30 A=A+INC 

40 IF A>LIM THEN 10 

50 GOTO 20 



TO 25G STEP 2 



D.LY. # 11-6 

10 FOR I 
20 PRINT I 
30 NEXT I 

D.LY. # 11-7 

10 FOR 1=0 TO 10 STEP ♦ 1 
20 PRINT I 
30 NEXT I 

This has the round-off problem. We can solve it by changing line 20: 
20 PRINT INK I*10+»5) /10 

But we're still not reaching the limit value, 10. So make these changes 
and additions: 

15 I = INKI*lO+.5)/10 
20 PRINT I 



D.LY. # 11-8 



5 FOR MN =0 TO 5S 
10 FOR SO0 TO 53 
20 PRINT MN; " : " 5 
25 FOR K = l TO 330 
27 NEXT K 
30 NEXT SC 
40 NEXT MN 
50 GOTO 5 



SC 



D.LY. # 11-9 

Make these changes to the "clock": 

40 FOR HR = HR TO 23 
120 NEXT HR: HR = 
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D.LY. # 11-10 

10 FOR 1 = 1 TO 2 

20 1 = 1 

30 PRINT "I LIKE TO RUN" t 

40 NEXT I 

U.I.Y. #11-11 

The program is in the main text. 

Chapter Checkpoint #11 

1. a-2 b-3 c-1 2. TRON 3. endless 



D.I.Y. # 12-1 





x-1 




100' ROUTINE* 




r 


■^ 












200' ROUTINE B 




X=3 


— >■ 


ON > 


c cnm inn ?nn ^nn 


V/M '- V w . w * W, fc-V/V ,^v/v/ 

< ' 

X = 0Rx>3 






U- 


300' ROUTINE C 



D.I.Y. # 12-2 



x=i 






100' A 

IW RETURN 




x = z 


— * 

— * 

\ 


t *\ 




X = 3 




200 '3 

299 RETURN 


CG05UB 100,200,300: 

> 


1 


; 








I X=OR O 
X = >3 


W 


300 'C 

379 RETURN 




*-,.. 
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D.I.Y. # 12-3 

In D.I.Y. # 12-2, substitute C for X; subroutine A is square root, 
sub-routine B is cube root, subroutine C is exponentiation. 

Chapter Checkpoint #12 

1. ELSE 2. b 3. GOSUB, RETURN 



D.I.Y. # 13-1 

120 IF RICK = YES AND ELLA =N0 THEN 500 
D.I.Y. # 13-2 

130 IF SUE = YES AND ELLA = YES THEN 500 

Chapter Checkpoint # 13 

1. b, c, e 2. a-2 b-3 c-1 



D.LY. # 14-1 

The answer is in the main text. 

D.LY. # 14-2 

304 R$ = "X MUST BE POSITIVE" 

305 IF X <= THEN GOSUB 300: GOTO 300 

Chapter Checkpoint # 14 

1. c 

2. Sine, log, and exponentiation are available. Cosine, tangent, exponen- 
tial, and other built-in math functions could be added. 

3. It is accurate only to seven digits. 



D.I.Y. # 15-1 

With Bob's no-array method, you would need 20 separate statements for 
inputting data, and 20 separate statements for printing out each item. 

Change Ray's program like this: 

10 DIM G(20) 

DELETE 20 

30 FOR I = 1 TO 20 

DELETE B0 

70 INPUT "WHICH ITEM DO YOU WANT TO RE-ORDER 

( 1-20) " ; i 

75 IF Kl OR l>20 THEN 70 

D.I.Y. # 15-2 

Milk quantity = G(m* 3 - 2) = G(m* 3 - 3 + item #) 
(Milk is item #1.) 

fjgjqfan^ G(m*3-l) = G(m*3- 3 + item *) 
Wax quantity = G(m* 3) = G(m * 3 - 3 + 3) 
(Eggs = item #2, Wax = item #3.) 



10 
20 
30 

40 

50 
B0 
70 



DIM GOB) 

FOR M=l TO 12 

FOR 1 = 1 TO 3 

PRINT "FOR MONTH *" 5 M! 

PRINT "ENTER THE QUANTITY SOLD OF ITEM*"? I 

INPUT G(M*3-(3-I> ) 
NEXT I >M 

90 INPUT "ENTER THE MONTH* AND ITEM*"? M.I 
95 IF M<1 OR MM 2 OR Kl OR I >3 THEN 90 

100 PRINT "ORDER THIS MUCH:"; G<M*3- (3- I ) > 

110 GOTO 90 

D.I.Y. # 15-4 

L stores the month number of the worst month. 
LT stores the total sales of the worst month. 
GT stores the grand total of all sales. 



For the best-selling item in the best month, pick the largest value printed 
by this: 

PRINT G(H* i) t G(H* 2) » G(H» 3) 
For the worst-selling item in the worst month, pick the smallest value 
printed by this: 

PRINT G(L t 1) # G(L t 2) t G(L t 3) 

DJ.Y. #15-5 

We computed the totals simultaneously: 



220 
230 
240 
250 
260 
270 
280 
290 
300 
310 



Ti = 0: 
FOR M = 



T2 = 0: T3 
i TO 12 



Tl = Ti + G(M t 1 ) 

T2 = T2 + G(M t 25 

T3 = T3 + GCM * 3) 

NEXT M 

PRINT "TOTAL MILK SALES 

PRINT "TOTAL EGGS SALES 

PRINT "TOTAL NAX SALES = 

GOTO 51 



5 Ti 

; T2 

T3 



Chapter Checkpoint #15 

1. b, c 2. A table, like this: 



COLUMNS 



ROWS 
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D.LY. # 16-1 

1. Sales at store #4, in December, of item 3 (wax). 

2. 4 * 12 * 3 = 144 

3. Three-dimensional arrays may be visualized as stacks of pages, each 
page containing a table: 



-d 



jj 



D.LY. # 16-2 



51 PRINT "PRESS <1> FOR RE- 
ANALYSIS" 

52 INPUT A 

53 ON A GOTO 54 ,100 
80 GOTO 51 

100 FOR S = 1 TO 4 

102 PRINT "SALES ANALYSIS FOR STORE # H 5 S 

110 H=i:L=l:GT = 

115 HT = G(S*I*1)+G(S*I*2>+G(S*I*3):LT 

HT 
120 FOR M = 1 TO 12 
130 NT =0 

140 FOR I = 1 TO 3: MT = MT + G(S *M *I ) : NEXT I 
150 IF MT > HT THEN H = 
1S0 IF MT < LT THEN L : 
170 GT = GT + MT 
180 NEXT M 



: MT + G(S *M *I ) 
Ms HT = MT 
M: LT = MT 
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190 PRINT "THE GRAND TOTAL OF ITEMS SOLD IS" 5 

GT 
200 PRINT "MONTH"? Hi "WAS BEST* WITH TOTAL 

SALES OF" 5 HT 
210 PRINT "MONTH" 5 L 5 "WAS WORST * WITH TOTAL 

SALES OF" 5 LT 
215 NEXT S 
220 GOTO 51 



D.LY. # 16-3 



'ENOUGH FOR TEN S4-CHARACTER 



5 CLEAR 840 

NAMES 
10 DIM TX$( 10) 
20 FOR N=l TO 10 
30 PRINT " ENTER NAME # " 5 N 
40 INPUT TX$(N) 
50 NEXT N 

80 PRINT: PRINT "HERE THEY ARE AGAIN; 
70 FOR N = 1 TO 10 
80 PRINT TKt(N) 
30 NEXT N 
100 GOTO 100 



D.LY. # 16-4 



FOR I = 1 TO 5: ? NN$(I) : NEXT 
FOR I = I TO 5 : ? YB$ ( I ) s NEXT 
FOR I = I TO 4s ? FT*(I) s NEXT 



D.LY. # 16-5 



10 CLEAR500 'ENOUGHFOR2520-LETTERWORDS 

20 READ NNtNJt NY* NI 

30 DATA 10* 5 * 5 * 5 

40 D I M N$ < NN > * A J$ ( N J ) * AY* ( NY ) * VB* ( N I ) 

50 FOR I = 1 TO NN: READ N*( I ) : NEXT I 

55 DATA RIUER * MOUNTAIN * SKY * WATER * WIND 

58 DATA RAIN * YALLEY * FOREST t DESERT * SEA 

80 FOR I = 1 TO NJ: READ AJ$( I ) : NEXT I 

85 DATA BLUE * HOT * WISTFUL * UNSURE * STILL 

70 FOR I = 1 TO NY : READ AY* ( I ) : NEXT I 



75 DATA SOFTLY* QUICKLY t BARELY t NEVER* AL- 
WAYS 
80 FOR I = 1 TO NI: READ UB*(I) : NEXT I 
85 DATA WHISPER* REMAIN* GROW* GO AWAY t EN- 
DURE 
30 Wi = RND(NN) : W2 - RND(NJ) : W3 - RND(NN) 
100 N4 - RND(NN) : W5 = RND(NV) : W8 - RND(NJ) 
110 W7 = RND(NN) : W8 = RND(NI ) 



N$(W3) 



120 PRINT N$ (Wl) 5 " IN THE"? AJ$(W2) 5 " 

130 PRINT N* (N4) 5 " " S AV$(W5) 3 " "5 AJ$(WG) 

140 PRINT "WHEN WILL THE "5 N$(W7)3 " "5 

UB$(W8) 
150 PRINT: PRINT 
1G0 FOR T = 1 TO 330: NEXT T 
170 GOTO 80 



D.I.Y. # 16-6 

1. CLEAR 
DIM 1 1 ( 1 ) 

11 ( i ) = 1 ♦ 5 
? 11 ( i ) 
1 1 < 1 ) = - 1 * 5 
? 1 1 C 1 ) 



2. CLEAR 
DIM I#(i) 
I#(1)=1*2345G7831 

? I#( 1 ) 



3. CLEAR 
DIM I! (i) 
I ! (1 ) = 1 .234507881 
? I ! ( 1 ) 

Chapter Checkpoint # 16 

1. D I M G ( 1 * 2 * G ) 2. How much RAM is available. 



D.I.Y. # 17-1 

* Add this line: 

, 12G IF LEN(P*) = 4 THEN P* = "REJECT" 



D.I.Y. # 17-2 

Notice the "instring" subroutine beginning at line 1000. It's going to come 
in handy many times in this and later chapters. 

Given Sl$ (the source text), S2$ (the target text), and SP (the start 
position), it searches for the first occurrence of S2$ in Sl$. The search 
begins at SP. Upon return from the subroutine, SF contains the position 
where the string starts. If the string is not found, SF = 0. 

10 CLEAR 300 

20 PRINT 

40 INPUT "ENTER THE TEXT TO 5E CENSORED" : Si* 

50 S2* - "SCRUBDEK" : SP = 1 

S0 GOSUB 1000 'FIND OCCURRENCE 

70 IF SF = THEN 100 

80 PRINT "THIS TEXT IS NOT ACCEPTABLE* WATCH 

IT! " 
90 GOTO 20 
100 PRINT "THIS TEXT IS ACCEPTABLE, . • 

CONTINUE" :G0T0 20 
1000 'INSTRING SUBROUTINE 

'INPUT UALUES: SI* = TO BE SEARCHED S2* = 
STRING TO FIND 

SP = START POSITION FOR SEARCH 
'INTERNAL UALUES: S3 = LENCS1*) S4 = 
LENCS2*) 

SL - LAST POSITION TO CHECK 
SI = COUNTER 
'OUTPUT VALUE: SF = POSITION NHERE S2* 
MAS FOUND IN Si* 

IF NOT FOUND t SF = 



1010 

1020 
1030 

1040 
1042 
1050 



10S0 
1070 
1080 
1090 

1100 
1110 
1120 

1130 
1140 



SF = 0: 
IF S4 > 
ERROR" 
SL = S3 
FOR SI 



S3 = LEN(S1*> 
S3 THEN PRINT 
: STOP 
- S4 + i 
= SP TO SL 



IF MID*(S1* t SI * S4> 
= SL 
NEXT SI 
RETURN 



S4 = LENCS2*) 
!l PARAHETER 



S2*THENSF = SI: SI 



Chapter Checkpoint # 17 

1. a 2. "and a right portion." 3. 50, CLEAR 
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D.I.Y. # 18-1 

Make these changes and additions to the program from D.I.Y. # 17-2. 

80 S2* = " NOBODY " : REM 8 CHARACTERS LONG 

81 PRINT "CENSOR-PROGRAM ACTIVATED* ♦ ♦ " 

82 GOSUB 2000 

85 PRINT "HERE IS THE CENSORED MESSAGE: " 

87 PRINT SI* 

2000 'MIDSTRING REPLACEMENT SUBROUTINE 

2010 'INPUT VALUES: Sl$ = ORIGINAL STRING 

2020 ' S2$ = REPLACEMENT SUBSTRING 

2030 ' SF = START POSITION FOR REPLACEMENT 

2040 'INTERNAL VALUES: S3 = LEN(S1*> S4 

= LEN(S2$) 
2045 ' SR = NO* OF TRAILING CHARACTERS 
2050 'OUTPUT VALUE: SI* = STRING WITH RE- 
PLACEMENT MADE 



20S0 ' 
2070 S3 



S4 = LEN(S2$) : SR = S3 - SF 



LEN(S1$) 
S4+ 1 
2080 IF SF < 1 OR SR < THEN RETURN 
2090 SI* = LEFT*(Sl$t SF-1) + 

RIGHT*(S1*, SR) 
2100 RETURN 



S2* 



Notice the "midstring" subroutine beginning at line 2000. This is our 
string modification tool. 

Given Sl$ (the source string), S2$ (the replacement substring), and SF 
(the position in Sl$ where the replacement begins, this subroutine 
changes Sl$. This picture shows the result: 



5P (position) 



S2* 



51$ (source) 



Chapter Checkpoint # 18 

1. " + " (concatenation) 

2. string, integer, single-precision, double-precision 
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D.I.Y. # 19-1 

1. The DATA statement contains the characters to be treated as word- 
delimiters. For example, "," marks the end of a word just as surely as 
does a space " ". 

2. Type in a line using "/" instead of spaces between words. 
Here's a more rigorous delimiter list: 

110 DATA ""»«,' 



"> 



t " @ " t 



3. K$( ) stores the position of each delimiter in this text. For n equal 1 to 
the length of the text: 

K$(n) = The nth character in the string if it is a delimiter. K$(n) 
= "" if the nth character is not a delimiter. 

To see an example of this, add one line to the program: 

145 STOP 
and run it. When the program stops, type in the immediate mode: 

FOR I = 1 TO LEN(S1*) : ? K*< I ) 5 : NEXT 
You'll see a list of the delimiters that were found. 

D.I.Y. # 19-2 

A$ contains the list of words. The Computer goes through the list, compar- 
ing each word with its successor. If they are out of order, they are swapped. 
The alphabetically "lighter" elements gradually float to the top of the list. 
When the Computer goes through the entire list without making a single 
swap, the list is sorted. 

Because of the floating process, this method is known as a "bubble sort." 

100 CLEAR 300 

110 DIM A*( 15) 

120 FOR I = 1 TO 15 

130 PRINT "TYPE IN WORD # " 5 15 

140 INPUT A*( I ) 

150 NEXT I 

1G0 T = 'WHEN T = 1 t A SNAP HAS OCCURRED 

170 FOR I = 1 TO 14 

180 IF A*( I ) <= A*( 1 + 1 ) THEN 200 

1 85 'THE NEXT L INE PERFORMS THE SWAP AND SETS T 



130 X* = A*(I) : A*(I) = A$(I + 1) = X*: T=l 

200 NEXT I 

210 IF T=i THEN 100 'REPEAT UNT IL NO SWAPS 

ARE MADE 
220 PRINT "HERE IS THE ALPHABETIZED LIST" 



230 FOR I = 1 TO 15 
240 PRINT A$(I) 

250 NEXT I 

260 INPUT "PRESS (HUB) TO END" ! X 



D.I.Y. # 19-3 

10 CLEAR 1000 

15 DEFINT A-Z 

20 DIM K$(255) 'K$() STORES DELIMITER IM- 
AGE 

25 DIMK(25B) 'K <> STORES DELIMITER POSI- 
TIONS 

27 DIMNC25G) 'NO STORES PERIOD POSIT IONS 

30 PRINT "TYPE IN THE TEXT > STARTING WITH A 
QUOTE. TYPE IN UP" 

35 PRINT "TO 240 CHARACTERS. YOU MAY TYPE MORE 

THAN ONE SENTENCE." 

37 INPUT SI* 

38 IF Sl*="" THEN 37 

39 NW = 0: LW = 0: NS = 0: LS = '» AND LENGTH OF 
WORDS AND SENTENCES 

40 SS = 15: SW = 4 'SUGGESTED WORD AND SENT- 
ENCE LENGTH 

100 F0RI = 1T0255:K$(I) = "":NEXTI 'CLEAR 

OUTK$< ) 
110 DATA" » , "." . "5" , ".» . "!" • "?" ' "«" 
115 READ S2*: IF S2* = "0" THEN 190 'HAVE 

CHECKED FOR DELIMS. 
120 SP = 1 
125 GOSUB 1000 
130 IFSF = 0THEN 115 'GET NEXT DELIMITER 

135 K$(SF) = S2* 

140 SP = SF + S4: IF SP > S3 THEN 115 'END OF 

TEXT 
145 GOTO 125 

190 KT = 0:K(0)=0 'KT COUNTS DELIMS, K(0) 

IS ALWAYS ZERO 

191 NP = 0:N(0)=0 'NPCOUNTS PERIODS. N(0) 
IS ALWAYS ZERO 

192 FOR 1 = 1 TO 255 

193 IF K*(I)="." OR K*(I)="!" OR K$(I)="?" 
THEN NP = NP + 1: N(NP)=I 



194 IF K*(I) <> "" THEN KT = KT + 1 : K ( KT ) = I 

196 NEXT I 

200 K(KT + 1) = S3 + 1 'END OF TEXT IS A DE- 
LIMITER. TOO 

205 N(NP + 1) = S3 + 1 'END OF TEXT IS A DE- 
LIMITER* TOO 

210 FOR I = 1 TO KT = 1 

220 IFK(I) -K(I-l) > 1THENNW = NW+ 1 : LW = LW + 

K(I) - K(I-l) 
290 NEXT I 

292 FOR I = 1 TO NP + 1 
294 IFN(I) -N(I-l) > 1THENNS = NS+ 1 : LS = LS + 

N(I) - N(I-l) 

296 NEXT I 

297 VS = LS/NS: VW = LW/NW 

300 PRINT "YOU TYPED"! NS 5 " SENTENCE ( S ) 

CONTAINING" ; NW5 "WORD(S) ." 
310 PRINT "AVERAGE SENTENCE LENGTH:"! VS ! 

"CHARACTER(S) " 
320 PRINT "AVERAGE WORD LENGTH:"! VW ! 

"CHARACTER(S)" 
330 IF VS > SS THEN PRINT "USE SHORTER 

SENTENCES! " 
340 IF VW > SW THEN PRINT "USE SHORTER WORDS ! " 
350 IF VS <= SS AND VW <= SW THEN PRINT 

"EXCELLENT!" 
420 RESTORE: GOTO 30 
1000 'INSTRING SUBROUTINE 
1010 'INPUT VALUES: SI* = TO BE SEARCHED 

S2* = STRING TO FIND 
1020 ' SP = START POSITION FOR SEARCH 
1030 'INTERNAL VALUES: S3 = LEN(S1*> S4 = 

LEN(S2*> 
1040 ' SL = LAST POSITION TO CHECK 
1042 ' SI = COUNTER 
1050 'OUTPUT VALUE: SF = POSITION WHERE S2* 

WAS FOUND IN SI* 
1060 ' IF NOT FOUND > SF = 
1070 ' 

1080 SF = 0: S3 = LEN(S1*> : S4 = LEN(S2*> 
1090 IF S4 > S3 - SP + 1 THEN PRINT " PARAMETER 
ERROR": STOP 
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1100 SL = S3 - S4 + 1 

1110 FOR SI = SP TO SL 

1120 IF MID* (SI* > SI f S4> = S2*THENSF = SI: SI 

= SL 
1130 NEXT SI 
1140 RETURN 

2000 'MIDSTRING REPLACEMENT SUBROUTINE 
2010 'INPUT VALUES: Si* = ORIGINAL STRING 
2020 ' S2* = REPLACEMENT SUBSTRING 
2030 ' SF = START POSITION FOR REPLACEMENT 
2040 'INTERNAL VALUES: S3 = LEN(S1$5 

S4 « LENCS2*) 
2045 ' SR = NO, OF TRAILING CHARACTERS 
2050 'OUTPUT VALUE: SI* = STRING HITH RE- 
PLACEMENT MADE 
20S0 ' 
2070 S3 = LEN(Slf) : S4 = LEN(S2$) : SR = S3 - SF - 

S4 + 1 
2080 IF SF < 1 OR SR < THEN RETURN 
2030 Si* = LEFT*(Si** SF-1) + S2* + 

RIGHT*(S1*» SR) 
2100 RETURN 

D.I.Y. # 19-4 

10 CLEAR 20 * G4 'ENOUGH FOR 2 COPIES OF 10 64- 

CHAR. ENTRIES 
20 DIMTX*(9) '10 ENTRIES 
30 CLS 

40 FOR EN=1 TO 10 
50 PRINT: PRINT "TYPE IN A QUOTE * THEN A LINE OF 

TEXT*" 
80 INPUT TX*(EN-i ) 
70 PRINT "THAT MAS ENTRY #" 5 EN 5 " . YOU HAVE" 5 

10-EN5 "ENTRIES LEFT*" 
80 NEXT EN 
90 FOR EN=i TO 10 

100 PR I NT: PR I NT "HERE IS ENTRY #"5 EN 5 
110 PRINT TX*(EN-1 ) 

120 INPUT "OK ( Y/N) "5 R*: IF R*< VIM" THEN 220 
130 SI* = TX*(EN-1 ) 
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140 INPUT "TYPE IN THE POSITION WHERE THE 
CHANGE STARTS" 5 SF 

150 INPUT "TYPE IN THE NUMBER OF CHARACTERS TO 
CHANGE" 5 SC 

160 PRINT "TYPE A QUOTE t THEN THE TEXT: " 

170 INPUT S2* 

180 GOSUB 2000 

190 TX*(EIM-1 ) = SI* 

200 PRINT "HERE IS THE CORRECTED LINE*": 
PRINT Si* 

210 GOTO 120 

220 NEXT EN 

230 PRINT "HERE IS THE ENTIRE TEXT* " 

240 FOR EN=1 TO 10: PRINT TX*(EN-1) : NEXT 

250 END 

2000 'MIDSTRING REPLACEMENT SUBROUTINE 

2010 'INPUT VALUES: SI* = ORIGINAL STRING 

2020 ' SC = # OF CHARACTERS TO REPLACE 

2030 ' S2* = REPLACEMENT SUBSTRING 

2040 ' SF = START POSITION FOR REPLACEMENT 

2050 'INTERNAL VALUES: S3 '= LENCS1*) S4 
= LEN(S2*) 

2060 ' SR = NO* OF TRAILING CHARACTERS 

2070 'OUTPUT VALUE: Si* = STRING WITH RE- 
PLACEMENT MADE 

2080 ' 

2090 S3 = LENCS1*) : S4 = LEN<S2*> : SR = S3 - SF - 
SC + i 

2100 IF SF < I OR SR < THEN RETURN 

2110 SI* = LEFT*(S1* f SF-1 ) 
RIGHT*(S1* >SR) 

2120 RETURN 



S2* 



Chapter Checkpoint # 19 

1. b 2. a-2 b. 1 3. 77 4- 32 
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4. alphabetical 



D.LY. # 20-1 



A. 64 columns per line 

B Whenever a character is printed in column 63, the cursor drops down to 
' the beginning ofthe next line (this is called a "carriage return ).Wnen 
we leave off the semi-colon at the end of PRINT, another carriage 
return is done, leaving a blank line on the display. Putting a semi- 
colon at the end of PRINT suppresses the extra carriage return, elimi- 
nating the blank line. 

C 16 lines. The last line must be printed without a carriage return or else 
the display will scroll. So we have a semi-colon on this one line. 

D Every number is printed with a leading and trailing space. 
" For negative numbers, the leading space is filled by the minus sign. 
Leading zeros to the left of the decimal point are not printed. Trailing 
zeros to the right of the decimal point are not printed. 



The display should look like this: 



0. 



.0. 



► 0, 



-5.3 .1 



,0, 



1 10 5.3 -1 -10 -5.3 - 
E. Here's our demo program: 
10 CLS 
30 PRINT "0. ♦ • .5. • . .0* ♦ ♦ 

ffl cr it 

35 READ A$: IF A$="END" THEN END 

40 PRINT A$5 

50 GOTO 35 

60 DATA HELLO * TWO NORDS *!»-!» END 



It produces this output: 

0,«.*5....0..**5....0.***5....0.***5 
HELLOTWO W0RDS1-1 

Strings are printed with no added spaces. 
F See D. 
G and H The "cursor" is the current print position. The normal PRINT 

statement always resumes printing where the cursor was last seen. 

D.I.Y. # 20-2 

Try this version of line 50: 

50 PRINT X 5 " " 5 



D.I.Y. # 20-3 

Line 90 contains two TAB instructions, TAB(MN) and TAB(MX). If MN > 
MX the second TAB won't be done, because you can t TAB backwards, bo 
we find out which value is smaller and always do that tab first. 



Chapter Checkpoint # 20 

1. a 2. comma and semi-colon 



D.LY. #21-1 

Change lines 20 and 60 of the average rainfall program: 

20 PRINT TAB<3) 5 "A"; TAB(13)5 "B"5 TAB (23) 5 
»C" 5 TABC33) ? "D" ? TABU3) i "E" 

60 PRINT TAB(J) 5 USING »»»«.«" 5 Xi 'NOTE 
TRAILING SEMI-COLON 

D.LY. # 21-2 

90 PRINT USING "*** ###**#*" 5 H 

D.LY. #21-3 

Add this line: 

27 INPUT "WHAT DAY OF THE MONTH WERE YOU BORN 

ON" ! D 

28 IF D - INTID/Z) * 2 THEN 30 'EVEN NUMBER? 
23 PRINT "SORRY-ONLY EVEN « PEOPLE GET PRO- 
CESSED TODAY" : GOTO 100 

Chapter Checkpoint # 21 

1. c 2. d 3. a 



D.LY. # 22-1 

Change line SO: 

30 FOR I - 1 TO 7 * G4 + 31 

D.LY. # 22-2 

Change line 30 

30 FOR I = 1 TO 15 * S4 + 31 
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D.LY. # 223 

Change line 30 

30 FOR I = 1 TO 15 * 84 + 82 

D.LY. # 22-4 

Change line 30 

30 FOR I = 1 TO 15 * 64 + G3 

D.I.Y. # 22-5 

16 * 64 - 1024 



Chapter Checkpoint #22 



1. On: ? CHR$<14) 
Off: ? CHR$< 15) 

2. a 3. anywhere 



4. c 5. True 



D.LY. #23-1 

10 CLEAR 100 

20 B$=STRING$(S tl91) 'SOLIDBAR 

30 NL$=CHR$(2S) + STRING* < 8 *24 > 'DOWNAND 

BACK 
40 SQ$ = B$ + NL$ + B$ 'CHECKERSQUARE 
50 CLS 
S0THIS=-1 
70 FORROW = 0TO7 

80 IFTHIS=-1 THEN BASE = 8 ELSE BASE = 14 
90 FORBLCK = 0TO3 
100 AT = R0W# 128 + BLCK* 12 + BASE 
110 PRINT@AT tSQ$5 
120 NEXTBLCK: THIS=-THIS5 NEXTROW 
130GOTO 130 

Chapter Checkpoint #23 

1. c 2. a 3. u/lc 

4. Control, CHR$(14), turns the cursor on. 
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Chapter Checkpoint #24 

1. SET, RESET 2. X and Y coordinates 3. c 



D.I.Y. #25-1 

Make these changes and additions: 

1080 IFABS(K) < 100 THEN K = K + T: GOTO 1023 
1082 IFSGN(K) =SGN(T) THEN K = SGN(K) * 100 

GOTO 1023 
1070 K = K + T: GOTO 1023 

D.I.Y. # 25-2 

1224 IFK$ = CHR$(10) THENPRINTB$5 
CHR$(2S) 5 : GOTO 1200 

Chapter Checkpoint #25 

1. gets or returns 



2. (BREAK) (interrupts program) and (SHIFT) 

3. VAL 



i (pauses program). 



D.LY. #26-1 

Pair #1 The number of variables doesn't match. 

Pair #5 There will be more than 248 characters output. 

Chapter Checkpoint #26 

1. b 2. #-1 3. b 4. d 



D.I.Y. #27-1 

280 CLS 

230 FORLI =0TO 15 
300 PRINTV$(LI) 5 
310 NEXTLI 

See the text for the answers to the challenge. 



D.I.Y. #272 

10 CLS 

20 UM=153B0 

30 FORCD = 0TO 159 

40 POKE MM + CD * CD + 32 

50 NEXT CD 

G0 GOTO 60 

Chapter Checkpoint #27 

1. b 2. b 3. a 4. ROM 



5. PRINT, SET / RESET, POKE 



D.LY. #28-1 

Run the program listed below. Try inputting these values: 

1E37 (Okay) 

100E40 (Reject!) 

-350E37 (Reject!) 

Any number with more than 38 digits (Reject!) 

1D50 (Reject!) 

31D-39 (Reject!) 

For any x, x is rejected if log 10 (ABS(x)) > 37 or if x contains more than 38 
digits. 

10 CLEAR 1000 

20 INPUT "INPUT A NON-ZERO NUMBER" 5 SI* 

30 IFLEN(S1*) >3BTHENPRINT"T0QMANY 

DIGITS" : GOTO20 
40 S2$ = "E" : SP= 1 
50 GOSUB 1000 
80 IFSF >0THENGOSUB 140 
70 S2* = "D" : SP = 1 
80 GOSUB 1000 



80 IFSF >0THENGOSUB 140 
100 X = VAL<S1*> 

PRINT "THERECIPROCALOF" 5X5 "IS "5 i/X 

GOTO 20 
'SUBR0UTINET0CHECKF0REXP0NENTS>37 

EX= ABS(MAL( RIGHT* (SI **S3-SF) ) ) 
CH=ABS(UAL(LEFT*(S1*>SF-1) ) ) 

'CHARACTERISTIC 
MC = LOG(CH)/LOG(10) ' LOG BASE 10 OF CH 
TM = EX + MC 'TOTAL MAGNITUDE 
IFTM< 38 THEN RETURN 

PRINT "NUMBER OUT OF RANGE* VALUE SET = 1' 
S 1 * = " 1 " 
RETURN 

'INSTRING SUBROUTINE 

SF = 0: S3-LEN(S1*): S4 = LEN(S2*) 

IFS4 >S3-SP+ 1 THEN RETURN 
SL = S3-S4+ 1 
FORSI =SPT0SL 

IFMID*(S1*»SI tS4) =S2*THENSF = SI: 

SI =SL 
1080 NEXT SI 
1070 RETURN 



110 
120 
130 
140 
150 

180 

170 

180 

180 

200 

210 

1000 

1010 

1020 

1030 

1040 

1051 



DXY. #28-2 

Add these lines and changes: 

125 PRINT "VALUESETTQ 1E38" 
127 X= 1E38 
130 RESUME NEXT 

Chapter Checkpoint #28 

1. b 2. False 3. c 4. b 
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Sample Programs 

The programs in this section illustrate many of the techniques discussed 
in the main text. We hope you'll enjoy them. Studying how they work may 
help you to put your own ideas into practice. 

Note: All of the programs in this section are computer printouts of func- 
tioning programs. If they don't work, it's probably due to a typing error. 
Compare what you've typed with what's in the program listing. 

Program #1. The Count 

Who says TRS-80 can handle a maximum of only 16 significant digits? And 
who says TRS-80 will overflow if a number exceeds 10 38 ? (We did, in the 
chapter on numbers.) 

In the following program, we show how to make TRS-80 keep track of up to 
255 significant digits, and handle numbers as large as 10 256 -1! 

It's all done with . . . strings. 

Type in the program and run it. It'll ask you where you want to start 
counting. Start with a very large whole number, say, 49 nines followed by 
a zero: 

99999993999999999999999399939999399939933999939890 

Normally, such a number would overflow instantly. But watch The Count 
count! There is a pause when the computer hits all-nines. 



Note: Because you can input a maximum of 240 characters, you won't be 
able to input 255 nines, which is the number 10 256 - 1 . The largest number 
you can input is 240 nines, which is the number 10 240 - 1 . But the program 
will count up to 10 256 - 1 (be prepared for a very long wait!). 

To see the program reach its ultimate overflow quickly, make the follow- 
ing changes: 



30 
35 

and run it. 



A$=STRING*(254* "9") + "0" 
PRINT "I 'LL 3TART COUNTING 



AT 



Here's the program: 



10 CLS 

20 CLEAR 1100 

30 PRINT "WHERE DO YOU WANT TO START COUNTING?" 

35 INPUT A$ 

40 P=LEN(A*> 

50 PRINT:PRINT A* 

60 C=VAL<MID*(A*»P» 1) >+l 

70 MS*-A*: MR*=RIGHT*(STR*(C) 

80 IF C<10 THEN 40 

90 P=P-1 

100 IF P=0 THEN IF LEN(A*>=2 

ELSE A*= w l ,, +A*: GOTO 40 
110 GOTO 60 
200 LS=LEN(MS*) 
210 IF LS <> LEN(MR$) + LS 
220 MS*-LEFT*<MS**PS-1> + MR* 
230 RETURN 



PS-P: GOSUB 200: A*=MS* 



55 THEN PRINT "OVERFLOW" : END: 



1 



OR PS 
RIGH 



< 1 THEN 
f*<MS*jLS- 



ERROR 
■PS) 
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Program #2. Diced Graphics 

This program makes extensive use of graphics and cursor control charac- 
ters to accomplish a form of animation (rolling dice). 

Here's the program: 

100 ' DICE WITH GRAPHICS 

110 ' 

120 ' CLEAR SCREEN 

130 CLS 

140 ' 

150 ' RESERVE SPACE FOR STRING CHARACTERS 

160 CLEAR 1000 

170 ? 

180 ' GRAPHICS DATA: 

190 ' OUTLINE OF THE DIE 

700 DATA 160, 176, 176, 176, 144, 26, 24, 149, 24, 24, 

24, 24, 24, 170, 26, 24, 170, 25, 23, 25, 149 
210 DATA 26, 24, 149, 24, 24, 24, 24, 24, 170, 26, 24» 

13'0, 131,131, 131, 129 
220 DATA -I 
230 * 

240 ' BLANK INSIDE OF DIE. ('-I' MEANS END) 
250 DATA 32, 32, 32, 26, S, 8, 8, 26, 32, 32, 32, ~1 
260 ' 

270 ' FACES OF THE DIE C-l' MEANS END) 
280 ' ONE 

290 DATA 26, 25, 42, -1 
300 ' TWO 

310 DATA 25, 25, 42, 26, 26, 24, 24, 24, 42, -I 
320 ' THREE 

330 DATA 26, 42, 42, 42, -1 
340 ' FOUR 

350 DATA 42, 25, 42, 26, 24, 24, 24, 26, 42i 2.j , 42, -1 
360 'FIVE , - 1 

370 DATA 42, 25, 42, 26, 24, 24, 42, 26, 42, 24, 24, ^4, 42, -1 

380 ' SIX , - , - ■ - 1 

390 DATA 42, 42, 42, 26, 26, 24, 24, 24, 42, 47, 4^, -1 



400 DEFINT A-Z 'INTEGER ALL VARIABLES 

410 DIM DF*<6) 'DF*() WILL HOLD THE SIX DIE FACES 

420 ' 

430 'READ OUTLINE INTO OT* 

440 READ ICi IF IC - -1 THEN 480 

450 OT* - OT* + CHR*(IC>: GOTO 440 

460 ' 

470 ' READ BLANKING FIELD INTO BL* 

480 READ IC: IF IC - -1 THEN 520 

490 BL* = BL* + CHR*(IC): GOTO 480 

500 ' 

510 * READ DIE FACES INTO DF* ( ) 

520 FOR I = 1 TO 6 

530 READ IC: IF IC = -i THEN 550 

540 DF*(I) = DF*<I) + CHR*(IC)= GOTO 530 

550 NEXT I 

560 * 

570 ' INITIALIZE DIE POSITIONS 

580 Fl = 404: Dl = Fl + 65: F2 = 424: D2 ^ F2 + 65 

590 ' 

600 ' MAIN PROGRAM 

610 ' 

620 ' PRINT OUTLINES 

630 PRINT a Fl, OT*?: PRINT a F2, OT* ; 

640 * 

650 ' ROLL THE DICE 

660 FOR I = 1 TO RND(ll) + 9 'ROLL 10 TO 20 TIMES 

670 GOSUB 760 : VI = IR 'GET 1ST RND VALUE AND SAVE I! 

680 PRINT a Dl, BL*;= PRINT a Dl, DF*<V1); 

690 GOSUB 760 : V2 = IR 'GET 2ND RND VALUE AND SAVE U 

700 PRINT a D2, BL*?: PRINT a D2, DF* ( V2 ) ' 

705 FOR DL = 1 TO 66: NEXT 

710 NEXT I 

720 PRINT 8 788, "TOTAL IS" ; VI + V2 

730 INPUT "PRESS <ENTER> FOR NEXT ROLL"" X: CLS 

740 GOTO 630 

750 END 

760 ' RANDOM NUMBER GENERATOR 

770 ' ON EXIT, IR = RANDOM VALUE FROM 1 TO 6 

780 IR ^ RND(6): RETURN 
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Program #3. Homing Missile 

This program simulates the homing missile situation. One object, "XY", 
moves in a straight line and bounces off the wall the way a real object 
bounces, i.e., the angle of deflection equals the angle of inflection. The 
other object, "AB", always homes in on its target, XY. 

The result of this chase can be interesting. As you'll find out, AB eventual- 
ly catches XY even if XY is given a significant speed advantage. 

Note: To change the object speeds, change line 6. VXY is the speed of XY, 
VAB is the speed of AB. Notice we've given XY a 5:3 speed advantage over AB. 

The paths of XY and AB are not erased as the objects move. For an 
interesting effect, change the program so that the trail of AB is not erased. 
Simply make line 594 a remark by inserting a single apostrophe at the 
beginning of the line. 

Here's the program; 



STRING* (62* 131) + CHR*(171)! 
+ STRING*<62»32) + CHR*(170); 



'SET UP BOUNDARIES 

4 CLS 

5 CLEAR 192 

6 VXY - 5= VAB - 3 
10 PRINT CHR*(15i) 
20 FOR I = 1 TO 14 
30 PRINT CHR*(149) 
40 NEXT I 

50 PRINT CHR*<181) + STRING* ( 62? 176) ; 

60 POKE 16383i 186 

100 ' MAIN PROGRAM 

110 GOSUB 200 'INITIALIZE XY OBJECT 

120 GOSUB 300 'INITIALIZE AB OBJECT 

130 GOSUB 400 'MOVE XY OBJECT 

140 GOSUB 500 'MOVE AB OBJECT 

1*50 GOTO 130 'KEEP MOVING THEM 



- 1 f RND ( 2 ) ) 

) * (-1 t RND(2) ) 



200 'INITIALIZE XY OBJECT 
210 X - RND<126>: Y = RND (46) 
220 IF POINT(XiY) THEN 210 
230 XM = RND (VXY * 5 ) / 5 * ( 
240 YM = S&RCVXY + 2 - XM + 2 
250 SET(XiY) 

299 RETURN 

300 'INITIALIZE AB OBJECT 
310 A = RND (126): B - RND (46) 
320 IF POINT <A»B) THEN 310 
330 SET<A»B) 

399 RETURN 

4 00 'MOVE XY OBJECT 

410 XT - ■ X: YT - Y 

420 'X = X + XMsY = Y + YM 

430 TX = Xs TY - Y: Tl = XM: T2 - YM 

440 GOSUB 1000 'CHECK POSITION, BOUNCE IF NECESSARY 

450 X - TX: Y - TY : XM = Tl: YM - T2 

4 60 RESET ( XT i YT ) 
470 SET(X*Y) 

499 RETURN 

500 'MOVE AB OBJECT 

5 10 AD - SGN(X-A): BD - SGN(Y-B) 

520 IF Y = B THEN AM - VAB * AD: BM - 0: GOTO 560 

530 K - ABS< <X-A)/(Y-B> ) 

540 AM = VAB * K / SQR(K t 2 + 1 ) * AD 

550 BM - VAB / 5QR<K t 2 + 1) * BD 

560 AT = A: BT = B 

570 A - A + AM: B = B + BM 

580 TX - A: TY - B: Tl - AM: T2 = BM 

590 GOSUB 1000 'CHECK POS. , BOUNCE IF NECESSARY 

592 A - TX: B = TY: AM = Tl : BM = T2 

594 RESET ( AT , BT ) 

596 SET(A,B) 

599 RETURN 

1000 'CHECK POSITION AND BOUNCE IF NECESSARY 

1010 IF TX > 126 THEN TX = 126: Tl = -Tl 

1020 IF TX < 1 THEN TX = 1 = Tl = -Tl 

1030 IF TY > 46 THEN TY = 46: T2 = -T2 

1040 IF TY < 1 THEN TY = 1: T2 = -T2 

1099 RETURN 
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Program #4. Drawing Board 

This program requires at least 16K of RAM. It turns your Video Display 
into a graphics drawing board. The program will even let you save your 
pictures on tape, and load them in later. 

The program is long, but we think you'll find it worth the trouble to type 
in. It contains some functions you'll probably find useful in your own 
programs. For example, lines 190-350 "redefine" certain keys on the 
keyboard. Lines 1040-1220 check the keyboard and take appropriate 
actions depending on the redefinitions. 

There are two versions of the program, one for Model I, one for Model III. 
The only differences are in lines 100-580. Lines 1000-end are identical for 
both Computers, so we've printed these lines only once. 

Here are the instructions for using the program: 

The cursor starts out moving one space each time you press a motion key. 
However, you can select an auto-draw mode, in which the cursor moves 
continually. 

The cursor starts out in the center of the screen. Normally, it draws as it 
moves. This is called the SET writemode. However, you can select the 
RESET writemode, in which case the cursor erases as it moves. 

There are also two cursormodes, WRITE and POSITION ONLY. With the 
cursormode = WRITE, the cursor changes (sets or resets points) as you 
move it. With the cursor mode = POSITION ONLY, the cursor has no effect on 
the points; it simply moves around. 



Keyboard Controls 

Direction of Motion 



® 
© 

CD 
CD 
CD 
3D 



Cursor 
Cursor 
Cursor 
Cursor 
Cursor 
Cursor 
Cursor 
Cursor 



up. 
down, 
left, 
right. 

northwest, 
northeast, 
southwest. 
southeast. 



/I 



Modes 

(SHIFT) CD 
(SHIFT) CB 
(SHIFT) QD 



Switch writemodes (SET/RESET). 

Switch cursormodes (SET/POSITION ONLY). 

Switch manual/auto draw. 



Special commands 



(SHIFT) CK 

(SHIFT) CD 




Read the display into an array (takes about one minute). 

Save the display into an array (takes about one minute) and 

then write it onto tape. 

Be sure to have recorder ready before issuing this 

command. The process of writing to tape takes several 

minutes. 

Load a display from tape (takes several minutes). Rewind 

tape and get recorder ready first. 

Print the array contents onto the screen. 

Erase the display. 



Here's the program: 
Lines 100-580 for Model I 



100 
110 

120 

130 

140 

150 

160 

170 

180 

3 90 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

395 

397 

400 

410 

420 

500 

510 

520 

530 

540 

550 

560 

570 

580 



DRAWING BOARD 

'*** INITIALIZATION 
CLEAR 2050 
DBF I NT A-Z 
DIM V*< 15) 

T=i:F=~i:Z=E 
VM =■ 15360 



MODEL I VERSION 

- COLD START ************* 

"LOTS OF SPACE TO STORE OHPLY 

' ARRAY TO STORE DISPLAY 

7 TRUE/FALSE/ZERO 
' START OF VIDEO MEMORY 



KEY-DEFINITIONS 

UP* '- CHR*<91 > 

DN* = CHR*( 10) 

LF* = CHR*<8) 

RT* - CHR*(9) 

NE* - "O" 

NW* = "W" 

SE* - "A" 

SW* - "S" 

WR* = CHR*(ASC< "W" > -f 

AD* ^ CHR*(ASC< "A" ) -* 

cp* = chr*(asc< "C" ) -y 

CL* = : CHR*<31 ) 
ST* - CHR*(ASC("S" ) h 
LT* - CHR*<ASC("L U ) h 
PR* = CHR*<A5C<"P" ) h 
RD* = CHR*(ASC( "R" ) h 
XH = 127: XL - 
YH = 47 i YL = 3 
' READOUT FORMAT 
FM* = "WRITEMODE = "/. 
WN* =■ "ARRAY EMPTY - 
QU* = CHR*(34) 
D - 1 
CLS 

'*** INITIALIZATION 
PX = <XH -XL) / 2 + 
PY = <YH - YD / 2 + 
SB = POINT (PXi PY) 

W = T 
C = F 
A = F 
DX = 0= DY = 



'UP ARROW 

'DOWN ARROW 

'LEFT ARROW 

'RIGHT ARROW 

' NORTH-EAST 

'NORTH-WEST 

'SOUTH-EAST 

' SOUTH-WEST 
32) 'SHIFT-W 
32) 'SHI FT- A 
32) 'SHIFT-C 

' CLEAR 

32) 'SHIFT- S 

32) 'SHIFT-L 

• 32) 'SHIFT-P 

32) ' SHIFT- R 

'LIMITS ON X-COORDINATF 

'LIMITS ON Y-COORDINATE 

7. CURSORMODE - % "/." + CHR*(30) 

USE <SHIFT-S> FIRST" 

'DOUBLE QUOTES FOR TAPE OUTPUT 
' INCREMENT 



WARM START ********** 
1 'START AT CENTER OF WINDOW 
1 

'SAVE BLOCK-STATUS 

'WRITE .= ON 

'CURSOR-MOTION-ONLY = OFF 

'AUTO-DRAW = OFF 

'ZERO X AND Y VECTORS 
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Lines 100-580 for Model III 



100 
110 

120 

130 

140 

J 50 

160 

170 

1 80 

190 

200 

2 .1. 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

395 

397 

400 

410 

420 

500 

510 

520 

530 

540 

550 

560 

570 

580 



DRAWING BOARD rIODEL III VERSION 



'*** INITIALIZATION - 

CLEAR 2050 

DEFINT A-Z 

DIM V* ( 1 5 ) 

T=l:F=~l:Z-0 

VM = 15360 

POKE 16409i0 7 SET 

KEY-DEFINITIONS 
UP* = CHR* (91) 

CHR*< 10) 

CHR* < a ) 

CHR* ( 9 ) 

» ^ " 

" uj" 

" a" 



DN* = 
LF* = 
RT* = 
NE* = 
NW* = 
SE* = 
SW* = 
WR* = 
AD* 

CP* 

CL* 

ST* 

LT* = "L° 

PR* = "P" 

RD* = "R" 

XH = 127: XL = 

YH = 47". YL = 3 

> READOUT FORMAT 

FN* - "WRITEMODE = X 

WN* = "ARRAY EMPTY - 

QU* = CHR* (34) 

D - 1 

CLB 

'*** INITIALIZATION 
PX = (XH - XL) 7 2+ 
PY = (YH - YL) / 2 + 
SB = POINT (PXi PY) 
W = T 
C = F 
A = F 
DX =0! DY = 



COL D START ************* 

'LOTS OF SPACE TO STORE DSPLY 

'ARRAY TO STORE DISPLAY 

T TRUE/FALSE/ZERO 
'START OF VIDEO MEMORY 
MODEL. Ill KEYBOARD IN ULC MODE 

'UP ARROW 
'DOWN ARROW 
' LEFT ARROW 

'RIGHT ARROW 
' NORTH-EAST 
' NORTH-WEST 
' SOUTH-EAST 
' SOUTH-WEST 



"W" 
"A" 
" C" 
CHR* (31 ) 

"S" 



' CLEAR 



'LIMITS ON X-COORDINATE 
'LIMITS ON Y- COORD IN ATI-: 



'/. CURSORMODE = 7. 
USE <SHIFT-S> FIRST" 

'DOUBLE QUOTES FOR TAPE OUTPUT 
' INCREMENT 



- WARM START ********** 
1 'START AT CENTER OF WINDOW 
1 

'•'SAVE BLOCK -STATUS 

'WRITE = ON 

'CURSOR-MOTION-ONLY = OFF 

'AUTO-DRAW = OFF 

'ZERO X AND Y VECTORS 



"/." + CHR* (30) 



lines 1000-end for Models Mil 

1000 '*** START MAIN PROGRAM ********** 



1010 K* = INKEY* 

1020 GOSUB 7000 

1030 GOSUB 6010 

1040 ' KEYBOARD ROUTINE 

1050 K* - INKEY*: IF K* 

1060 IF K* - UP* THEN DX 

1070 IF K* = DN* THEN DX 

LF* THEN DX 

RT* THEN DX = D: DY 

NE» THEN DX = D: DY 



FLUSH PRIOR ENTRIES 
DISPLAY SWITCH STATUS 
BLINK BLOCK 



1080 IF K* 
1090 IF K* 
1100 IF K* 



11 THEN 1240 'IF NONE* CHK AUTODRAW 
Z: DY =-D: GOTO 1270 'DRAW 
Z: DY - D: GOTO 1270 
■D: DY ~ I- GOTO 12 70 
GOTO 1270 
D: GOTO 1270 



1110 IF K* = NW* THEN DX = -D: DY =-D: GOTO 1270 
1120 IF K* = SE* THEN DX = D: DY = D: GOTO 1270 
1130 IF K* = SW* THEN DX =-D: DY - D : GOTO 1270 



1140 
1150 

1160 
1 170 
1180 
1190 
1200 
1 2 1 
1220 
1 230 
1240 
1250 
1260 
1 270 
1280 
1 290 
1300 
1310 
1320 
1 330 
1340 
1350 
1360 
1 370 
1380 
1390 
1400 



K* 
K* 
K* 
K* 
K* 
K* 
K* 
K* 



WR* THEN 
AD* THEN 
CP* THEN 



THEN 

THEN 



GOTO 
GOTO 

GOTO 
010 



W =-W: 
A —A: 
C =-C: 
GOSUB 
5000 

THEN GOSUB 

THEN 4010 

THEN CLS: GOTO 



1240 
1240 

1240 



' CHK AUTODRAW 



010 



'UNDEFINED KEY 



RD* 

PR* 

ST* 

LT* 

CL* 
GOTO 1030 

CHECK AUTO-DRAW 
GOSUB 7000 
IF A = F THEN 1030 

DRAW ROUTINE 
IF C = T THEN 1310 
IF W - T THEN SET(PX»PY) 
RESET ( PX » PY ) : GOTO 1 340 
' RESTORE BLOCK 

IF SB THEN SET(PXiPY): GOTO 1340 
RESET (PX*PY> 
MOVE CURSOR 

+ DX : PY = 

XL THEN PX 

XH THEN PX 

YL THEN PY 

YH THEN PY 



'READ DSPLY INTO ARRAY 
'PRINT ARRAY TO DSPLY 
: GOTO 3010 'SAVE DSPLY ON TAPE 

'LOAD DSPLY FROM TAPE 
00 'CLEAR SCREEN & RESTART 



IGNORE AND GET ANOTHER 



UPDATE SWITCH 
'NO AUTO-DRAW 



READOUT 
SO GET 



NEW K* 



' RESTORE 

GOTO 1340 
'ERASE BLOCK 



BLOCK 
•'SET 



MOVE CURSOR 
BLOCK & MV CSR 
MV CSR 



PX 
IF 
IF 
IF 
IF 
SB 



PX 



PY 



PX 
PX 
PY 
PY 



XH: 
XL 
YH: 
YL 



DY 

GOTO 



1370 



'MV CSR 



INCREMENT X AND Y 
'CHECK PX AND PY 



GOTO 1390 



POINT (PXiPY) 



SET(PX»PY> 



' SAVE BLOCK-STATUS 

'BET NEW POSITION 
'GET NEW K* 



BLOCK OFF 
CHR* (30) ' 



'MEM ADDR OF CURRENT LINE 



CHR* (PEEK (AD) ) 



1410 GOTO 1030 

1420 ' 

2000 '*** SAVE DISPLAY INTO ARRAY ********* 

2010 A = F: RESET (PXiPY) 'STOP AUTODRAW 

2020 PRINT a 0i "READING DISPLAY INTO ARRAY..." 

2025 GOSUB 2200 'EMPTY EXISTING ARRAY 

2030 FOR LI = TO 15 

2040 ML - LI * 64 + VM 

2050 FOR CL = TO 63 

2060 AD = ML + CL. 

2070 V*(LI) = V*(LI ) 

2080 NEXT CL? LI 

2090 RETURN 

2100 ' 

2200 

2210 

3000 

3010 

3020 

3030 

3040 

3050 

3060 ; 

4000 '*** READ DISPLAY FROM TAPE 

4010 PRINT a 0? "READING DISPLAY FROM TAPE.. 



'EMPTY 

FOR I : 



THE ARRAY 
= TO 15: V*( I) = 



NEXT: RETURN 



'*** SAVE ARRAY TO TAPE ********** 

PRINT a 0* "SAVING DISPLAY ONTO TAPE 
FOR LI = TO 15 

PRINT #-1, QU*' V*(LI); O.U$ 
NEXT LI 
GOTO 1010 



'GET NEW K* 



CHR* (30) ; 



CHR* ( 30 ) ; 



4020 FOR LI 



TO 15 



4030 
4040 
4050 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
6000 



INPUT#- 
NEXT LI 



v*a.n 



'*** WRITE ARRAY TO DISPLAY 
CLS: ON ERROR GOTO 9000 
FOR LI = TO 14 
PRINT V*(LI ) ■ 
NEXT LI 

PRINT LEFT*(V*(LI)? 63)* 
POKE 1 6383 * AS C ( R I GHT* ( V* < L I ) 
GOTO 500 

'*** BLINK BLOCK ********** 



********** 
PREVENT FC ERROR 



' PREVENT SCROLL 
'WARM START 
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6010 
602O 
7000 
7010 
7020 
7030 
7040 
9000 
9010 
9020 
9030 
9040 



IF POINT (PXiPY) THEN RESET ( PX, PY) s RETURN 

SET(PX»PY): RETURN 

'*** DISPLAY SWITCH STATUS ********** 

IF W = 1 THEN SM* - "SET" ELSE SM* = "RESET" 

IF C - 1 THEN SC* = "POSITION ONLY" ELSE SC* 

PRINT 3 0? USING FN*; SM*? sc*; 

RETURN 

'ERROR HANDLER 

IF ERR/2 + 1 <> 5 THEN ON ERROR GOTO 

PRINT 3 0» WN*; CHR*<30>; 

FOR DL = 1 TO 500: NEXT DL 

RESUME 1010 



"WRITE" 



Program #5. Automatic Censor, 
Broadaxe Version 

Here is the complete listing of the program developed in Chapter 19. 



K*() STORES DELIMITER IMAGE 

'KO STORES DELIMITER POSITONS 



10 CLEAR 1000 

15 DEFINT A-Z 

20 DIM K*(255) 

25 DIM KC256) 

30 CIS 

40 PRINT "MEKLOVAKIAN OFFICIAL AUTOMATIC CENSOR. 1 

45 PRINT "BROADAXE VERSION- -YOU TYPE IT IN— I CUT IT UP 

50 PRINT "TYPE A QUOTATION MARK? THEN THE TEXT." 

60 I NPUT P* • S 1 $ " P* 

70 FOR 1=1 TO LEN<S1*> 'CHANGE LOWERCASE TO UPPERCASE 

S2* = MID*(S1*? I? 1 > 

IF S2* < CHR*(97) OR S2* > CHR*<122) THEN 95 

82* - CHR*( ASC(S2$) - 32) 

SF = I : SC = 1 : GOSUB 2000 
95 NEXT I 

100 FOR I"l TO 255 
1 10 DATA " " i " » " 



75 
80 
85 
90 



K* ( I > = 



NEXT I 



' CLEAR OUT K*< ) 
, "-", "0" 



"0" THEN 190 



'"CHECK ALL DELIM5. 
11 GET NEXT DELIMITER 



115 READ S2*: IF S2* = 

120 SP ~ 1 

125 GOSUB 1000 

130 IF SF = THEN 115 

135 K*(SF) = S2* 

140 SP - SF + SA: IF SP > S3 THEN 115 ' END OF TEXT 

190 KT - 0?K(0) = 'KT COUNTS BLANKS? K(0) IS ALWAYS ZERO 

192 FOR 1=1 TO 255 

194 IF K*(l> <> u " THEN KT = KT + 1: K ( KT ) - I 

196 NEXT' I 

200 K(KT + 1) = S3 + 1 'END OF TEXT MARKER 

210 FOR I = 1 TO KT + 1 

vv(ZJ IF K(I) - K<I-1) <> 5 THEN 290 

230 S2* - »****": SC - 4: SF = K(I - 1) +1 

?40 GOSUB 2000 

290 NEXT I 

300 IF S3 < 8 THEN 400 

305 SP=1 

310 52* = "SCRUBDEK" : GOSUB 1000 

320 IF SF - THEN 400 

330 82* =- "NOBODY": SC = 8: GOSUB 2000 

340 IF SR < 84 THEN 400 

"V :: .0 SP - SF + l: GOTO 310 

400 CLS: PRINT "AUTHORIZED TEXT FOLLOWS. , . " : PRINT SI* 

420 end 

1000 mnstring subroutine 
1080 sf - 0: s3 = len(s1*): s4 = len(b2*) 
1090 if s4 > s3 - sp + 1 then return 

1 100 SL = S3 - 84 + 1 

1110 FOR 81 = SP TO SL 

U20 IF MID* (Si** SI? 84) ^ S2* THEN SF = SI = SI = SL. 

1130 NEXT 81 

1 140 RETURN 

2000 ' M I DST R I NG REPLACEMENT SUB ROUT I NE 

2070 83 ^ LEN(S1*>: SR = S3 - SF - SC + 1 

2080 IF SF < 1 OR SR < THEN RETURN 

2090 SI* = LEFT* (81*i SF---1) + S2* + RIGHT* ( SI* ? SR ) 

2100 RETURN 
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C / Error Codes 



CODE 


ABBREVIATION 


ERROR 


1 


NF 


NEXT Without FOR 


2 


SN 


Syntax error 


3 


RG 


Return without gosub 


4 


OD 


Out of data 


5 


FC 


Illegal function call 


6 


OV 


Overflow 


7 


OM 


Out of memory 


8 


UL 


Undefined line 


9 


BS 


Subscript out of range 


10 


DD 


Redimensioned array 


11 


/O 


Division by zero 


12 


ID 


Illegal direct . 


13 


TM 


Type mismatch 


14 


OS 


Out of string space 


15 


LS 


String too long 


16 


ST 


String formula too complex 


17 


CN 


Can't continue 


18 


NR 


NO RESUME 


19 


RW 


resume without error 


20 


UE 


Unprintable error 


21 


MO 


Missing operand 


22 


FD 


Bad file data 


23 | L3 


Disk basic only 
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Explanation of Error Messages 

NF NEXT without FOR: NEXT is used without a matching 
FOR statement. This error may also occur if NEXT 
variable statements are reversed in nested loop. 

SN Syntax Error: This usually is the result of incorrect 
punctuation, open parenthesis, an illegal character or 
a mis-spelled command. 

RG RETURN without GOSUB: A RETURN statement was 
encountered before a matching GOSUB was executed. 

OD Out of Data. A READ or INPUT # statement was 
executed with insufficient data available. DATA 
statement may have been left out or all data may have 
been read from tape or DATA. 

FC Illegal Function Call: An attempt was made to execute 
an operation using an illegal parameter. Examples: 
square root of a negative argument, negative matrix 
dimension, negative or zero LOG arguments, etc. Or 
USR call without first POKEing the entry point. 

OV Overflow: The magnitude of the number input or 

derived is too large for the Computer to handle. NOTE: 
There is no underflow error. Numbers smaller than 
+1.701411E - 38 single precision or 
± 1.701411834544556E - 38 double precision are rounded 
too. See /0 below. 



OM Out of Memory: All available memory has been used 
or reserved. This may occur with very large matrix 
dimensions, nested branches such as GOTO, GOSUB, 
and FOR-NEXT Loops. 

UL Undefined Line: An attempt was made to refer or 
branch to a non-existent line. 

BS Subscript out of Range: An attempt was made to 

assign a matrix element with a subscript beyond the 
DIMensioned range. 

DD Redimensioned Array: An attempt was made to 
DIMension a matrix which had previously been 
dimensioned by DIM or by default statements. It is a 
good idea to put all dimension statements at the 
beginning of a program. 

/0 Division by Zero: An attempt was made to use a value 
of zero in the denominator. Note: If you can't find an 
obvious division by zero check for division by numbers 
smaller than allowable ranges. See OV above. 

ID Illegal Direct: The use of INPUT as a direct command. 

TM Type Mismatch: An attempt was made to assign a 
non-string variable to a string or vice-versa. 

OS Out of String Space: The amount of string space 
allocated was exceeded. Try to CLEAR more. 



LS String Too Long: A string variable was assigned a 

string value which exceeded 255 characters in length. 

ST String Formula Too Complex: A string operation was 
too complex to handle. Break up the operation into 
shorter steps. 

CN Can't Continue: A CONT was issued at a point where no 

continuable program exists, e.g., after program was 

ENDedorEDlTed. 
NR No RESUME: End of program reached in error-trapping 

mode. 
RW RESUME without ERROR: A RESUME was encountered 

before ON ERROR GOTO was executed. 

UE Unprintable Error: An attempt was made to generate 
an error using an ERROR statement with an invalid 
code. 

MO Missing Operand: An operation was attempted 
without providing one of the required operands. 

FD Bad File Data: Data input from an external source 
(i.e., tape) was not correct or was in improper 
sequence, etc. 

L3 DISK BASIC only: An attempt was made to use a 

statement, function or command which is available 
only with the Disk System. 
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TRSCII (TRS-80 Code for Information 
Interchange) 



Code 
Dec. Hex. 


Key(s)* 


PRINT CHR$(codeJ 


1 


00 




No effect 


1 


01 


(BREAK) 

(SHiFDCeCB 


No effect 


2 


02 


(SHED (B 3D 


No effect 


3 


03 


(SHIFT)®® 


No effect 


4 


04 


(SHIFT) ®IDJ 


No effect 


5 


05 


(SHIFT) (i)LU 


No effect 


6 


06 


(SHIFT)® I Fj 


No effect 


7 


07 


(SHIFT) (♦JIG J 


No effect 


8 


08 


@ 

(shift) ® on 


Backspace and erase 


9 


09 


(SHIFT)® CD 


No effect 


10 


0A 


® 

(SHim®m 


Move cursor to start of 
next line and erase line 


11 


0B 


(SHIFD®UCJ 


No effect 


12 


OC 


(SHIFT)® UJ 


No effect 


13 


0D 


(ENTER) 

(SHIFT)® cm 


Move cursor to start of next 
line and erase line 



' Many of these key-sequences are to be used with INKEY$, 

not INPUT. 

In Model 4, the fCTRD (Control) key works the same way as (SHIED 



I Code 
Dec. Hex. 


Key(s) 


PRINTCHR$(code) 


14 


OE 


(SHIFTHtHNJ 


Cursor on 


15 


OF 


(SHIFT)ltHOJ 


Cursor off 


16 


10 


(SHIFTKtHPJ 


No effect 


17 


11 


(SHIFTHtKQJ 


No effect 


18 


12 


(SHIFTHtHRJ 


No effect 


19 


13 


(SHIFT) (t)l§J 


No effect 


20 


14 


(SHIFT) WIT J 


No effect 


21 


15 


(SHIFTJdJLUJ 


Swap space compression/ 
special characters 


22 


16 


(SHIFT)(*HVJ 


Swap special/alternate characters 


23 


17 


(SHIFT) (tJCT) 


Double-size characters 


24 


18 


(SHIFT) M 


Backspace without 
erasing 


(SHIFT) (*HX) 


25 


19 


(SHIFT)(*)IYJ 


Advance cursor 


26 


1A 


(SHIFTl(t)lZJ 


Move cursor down 


27 


1B 


(SHIFT) (♦) 


Move cursor up 


28 


1C 


(SHIFT) (♦)(, Jt 


Move cursor to upper left corner 


29 


1D 


(SHIFT)(4)(9Jt 


Move cursor to beginning of line 


30 


1E 


(SHIFT) (*)(.)t 


No effect 


31 


1F 


(CLEAR) 
(SHIFT) (ft (7)t 


No effect 



tNot available in Model I. 
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Code 
Dec. Hex. 


Key(s) 


PRINT CHR$fcodej 


32 


20 


(SPACEBAR) 


b 


33 


21 


! 


! 


34 


22 


M 


>i 


35 


23 


# 


# 


36 


24 


$ 


$ 


37 


25 


% 


% 


38 


26 


& 


& 


39 


27 


J 


> 


40 


28 


( 


( 


41 


29 


) 


) 


42 


2A 


* 


* 


43 


2B 


+ 


+ 


44 


2C 


) 


! 


45 


2D 


- 


- 


46 


2E 






47 


2F 


/ 


/ 


48 


30 








49 


31 


1 


1 


50 


32 


2 


2 



Code 
Dec. Hex. 


Key(s) 


PRINT CHR$fcodej 


51 


33 


3 


3 


52 


34 


4 


4 


53 


35 


5 


5 


54 


36 


6 


6 


55 


37 


7 


7 


56 


38 


8 


8 


57 


39 


9 


9 


58 


3A 






59 


3B 


i 


> 


60 


3C 


< 


< 


61 


3D 


= 


= 


62 


3E 


> 


> 


63 


3F 


? 


? 


64 


40 


@ 


@ 


65 


41 


A 


A 


66 


42 


B 


B 


67 


43 


C 


C 


68 


44 


D 


D 
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Code 
Dec. Hex. 


Key(s) 


PRINT CHR$(code) 


69 


45 


E 


E 


70 


46 


F 


F 


71 


47 


G 


G 


72 


48 


H 


H 


73 


49 


I 


I 


74 


4A 


J 


J 


75 


4B 


K 


K 


76 


4C 


L 


L 


77 


4D 


M 


M 


78 


4E 


N 


N 


79 


4F 








80 


50 


P 


P 


81 


51 


Q 


Q 


82 


52 


R 


R 


83 


53 


S 


S 


84 


54 


T 


T 


85 


55 


U 


U 


86 


56 


V 


V 


87 


57 | W 


w 
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Code 
Dec. Hex. 


Key(s) 


PRINT CHRtfcode) 


88 


58 


X 


X 


89 - 


59 


Y 


Y 


90 


5A 


Z 


Z 


91 


5B 


ffl 


[or4 


92 


5C 




\orf 


93 


5D 




]or* 


94 


5E 




Aor-»- 


95 


5F 




- 


96 


60 




@ 


97 


61 


A 


a 


98 


62 


B 


b 


99 


63 


C 


c 


100 


64 


D 


d 


101 


65 


E 


e 


102 


66 


F 


f 


103 


67 


G 


g 


104 


68 


H 


h 


105 


69 


I 


i 



Note: For all-capitals Model I's, codes 96-1 27 display the 
same characters as codes 64-95. 



110 

111 

112 
113 
114 
115 
116 
117 
118 
119 
120 



121 

122 

123 

124 

125 

126 

127 

128 



192 



255 



6A 



Code 
Dec. Hex. 

106 



107 
108 
109 



6B 



6C 
6D 



6E 



6F 
70 



71 
72 



73 
74 



75 



76 
77 
78 



79 



7A 



7B 



7C 



7D 
7E 
7F 
80 



CO 



FF 



Key(s) 



K 



M 



N 



Q 



U 



W 



PRINT CHR$(codeJ 



J 



m 



w 



Codes 1 28-1 91 output graphics characters. See the 
graphic display table in this Appendix. 



Codes 1 92-255 output either space compression 
codes or special characters when used with print 

Model III Only: They always output special 
characters when used with poke vidram, code. 



Model III BASIC Reserved Words 



* 



@ 


ELSE 


LLIST 


RENAME 


ABS 


END 


LPRINT 


RESET 


AND 


EOF 


LOAD 


RESTORE 


ASC 


ERL 


LOC 


RESUME 


ATN 


ERR 


LOF 


RETURN 


AUTO 


ERROR 


LOG 


RIGHT$ 


CDBL 


EXP 


MEM 


RND 


CHR$ 


FIELD 


MERGE 


RSET 


CINT 


FIX 


MID$ 


RUN 


CLEAR 


FN 


MKD$ 


SAVE 


CLOCK 


FOR 


MKI$ 


SET 


CLOSE 


FORMAT 


MKS$ 


SGN 


CLS 


FRE 


NAME 


SIN 


CMD 


FREE 


NEW 


SQR 


CONT 


GET 


NEXT 


STEP 


COS 


GOSUB 


NOT 


STOP 


CSNG 


GOTO 


ON 


STRING$ 


CVD 


IF 


OPEN 


STR$ 


CVI 


INKEY$ 


OR 


SYSTEM 


CVS 


INP 


OUT 


TAB 


DATA 


INPUT 


PEEK 


TAN 


DEFDBL 


INSTR 


POINT 


THEN 


DEFFN 


INT 


POKE 


TIME$ 


DEFINT 


KILL 


POS 


TO 


DEFSNG 


LEFT$ 


POSN 


TROFF 


DEFUSR 


LET 


PRINT 


TRON 


DEFSTR 


LSET 


PUT 


USING 


DELETE 


LEN 


RANDOM 


USR 


DIM 


LINE 


READ 


VAL 


EDIT 


LIST 


REM 


VARPTR 
VERIFY 



*Some of these words have no function in BASIC; they are 
reserved for use in Disk BASIC . None of these words can be 
used inside a variable name. You'll get a syntax error if you 
try to use these words as variables. 
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Graphics Characters (Codes 128-191) 



338 





> 

CD 

x 



Q 
p 



o 
tr 

CD 
CD 
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/ i 



Index 



! 231-2, 241 

" 16, 186 

$ 45, 227, 228, 230, 232-3 

% 102-3, 223, 230, 232 

' 70,71,273 

21,116 

* 18 

+ 197, 225-227 

, 17,53,54,186,224-5,229,241,286 

- 225-227, 229-230 

. 69 

/ 16 

: 64, 66, 186 

; 17, 52, 53, 213, 214, 224, 286 

< 59-60 

> 59-60 

? 63 

AAGF, 100 

AAW, 203 

Abnormal programs, 37 

ABS, 118 

Absolute value, 114, 118 

AND, 147, 151 

Animation 257, 327 

Ajax, 87 

Aristotle, 190 

Array, 163, 164, 289 

integer, 178, 181 

one-dimensional, 164 

two-dimensional, 168 

three-dimensional, 174-5 

single-precision, 96-106 
ASC, 204, 253 

ASCII, 203, 237, 250, 274, 286, 292 
Asterisk (*), 18 
AUTO, 66, 68 

Babson, Bob, 161 
Backspace, 8, 77, 83-4, 254 
(BREAK) . 13,244, 271,303 
Broadaxe, 202 
Byte, 181,290-1 

Calculator, 153-5 

Cassette, 211, 283-4 

Chapter Checkpoint Answers 312-25 

Chess, 256 



CHR$, 203, 204, 237-8, 240, 251, 253 

CLEAR, 176, 187, 289 

(CLEAR) . 9, 238 

CLS, 20, 238-9, 265, 292 

Character, 249 

codes, 249, 250, 253, 272, 274 

control, 237, 240, 251 

graphics, 252, 275, 339 
CINT, 118 

Colon (:), 64, 66, 186 
Columns, 53 
Comma, 17, 53, 54, 186, 224-5, 229, 241, 

286 

floating, 228, 230 

trailing, 54, 215-6 
Command, 13, 15, 37 
Concatenation, 97 
Conditional branch, 56 
Control codes, 251, 274 
COS, 219 
Cosine, 219 
Counter, 125, 128 
CSAVE, 219, 245 
cummings, e.e., 205 
Cursor movement 8, 77, 83-4, 215, 217, 237, 

240-1 , 249, 250-1 

DATA, 98-9, 100, 125, 307 

Decimal point, 224, 230 

Declare-it statement (see Statements) 38, 119, 
120 

DEFDBL, 120 

DEFINT, 119-20 

DEFSNG, 120 

DEFSTR, 120 

DELETE, 29, 69-70, 77-8, 81 

Delimiter, 195 

Dewey Decimal System, 154 

DIM, 164, 168, 180, 289 

D-notation, 229 

Dollar sign ($), 45, 227, 228, 230, 232-3 

Do-lt-Yourself #, 1-1, -4, 10; 2-1, -5, 18; 
3-1, 31; 3-2, 32; 4-1, 47; 5-1, 56; 5-2, 57; 
5-3, 60; 6-1, 66; 7-1, 81; 9-1, 98; 9-2, 103; 
9-3, 108; 9-4, 110; 10-1, 113; 10-2, 115; 
10-3, 117; 10-4, -5, 118; 10-6, 120; 11-1 
-2, 125; 11-3 -4, 126; 11-6, -7, 128; 11-8, 
130; 11-9 -10, 131; 11-11, 132; 12-1 -2, -3, 
142; 13-1, 148; 13-2, 149; 14-1, 155; 15-1, 
165; 15-2, 166; 15-3, 167; 15-4, 170; 15-5, 
171; 16-1 -2, 174; 16-3 -4, 176; 16-5, 177; 



16-6, 178; 17-1, 189; 17-2, 192; 18-1, 198; 

19-1, 203; 19-2 -3, 207; 19-4, 208; 20-1, 

213; 20-2, 216; 21-1, 223; 21-2, 229; 21-3, 

233; 22-1 -5, 239; 23-1, 257; 25-1, 273; 

25-2, 280; 26-1, 285; 27-1, 294; 27-2, 295; 

28-1,300;28-2, 302 
Do-lt-Yourself Answers, 312-25 
Double-precision, 107-8, 178, 181, 214, 229, 

230 
Double-size mode, 10 

EDIT, 30, 69, 70, 75-93 

END, 303 

(ENTER) 13. 14,91,92 

E-notation, 229 

Erase, 8, 30 

ERL, 304 

Error-handling, 157-8, 211, 299-309 

Error messages 14, 20, 332-3 

Exclamation point (!), 231-2, 244 

EXECUTE, 26 

Exponential (E) format, 97-8 

Exponentiation, 114 

Expressions, 42 

Field specifiers (see PRINT USING), 221-36 

FIX, 118 

FOR/NEXT, 128, 129-33, 255, 280 

Googol, 19 

GOSUB, 140-1 

GOTO, 51, 54, 133, 137,303 

Graphics (also see TRSCII and Statements), 38, 

211, 219, 249-51, 254, 261, 265, 271, 275, 

328 
Greater Than (>), 59-60 

Hierarchy, 117 
Hyphen (-), 201 

IF. . . END, 57 

IF. . . THEN, 55, 56, 59, 133, 151, 233, 268 

IF. . . THEN. . . ELSE, 135-6 

Increment, 125, 126, 128 

INKEYS, 271,280, 295 

Initial value, 125, 128 

INP, 296 

INPUT, 58, 215, 274, 283-5 

Input/Output (I/O) (see Statements), 38, 45-6, 

283 
INT, 118 

Integer variable, 103 
Integer array, 178, 181 



Keyboard, 7 

LEFTS, 190 

LEN, 188 

Level II BASIC Reference Manual, 3 

Level II Programming Techniques, 289 

Less than (<), 59-60 

Limit value, 125, 128 

Lincoln, Abraham, 249 

Line, 69 

Line number, 28, 66-8 

Line printer, 211, 249 

LIST, 27, 77 

LLIST, 286 

LOG, 118 

Logarithm, 154-9 

Logical expression, 219 

Loops, 52, 123-33 

Lower/uppercase, 250, 275 

LPRINT, 286 

Marginalia, 4 

Meklovakia, 185-92 

Memory, 181-2, 211 

Menu, 153-5 

MID$, 190 

Minus sign (-), 225-7, 229-30 

Model I, 3, 76, 201-2, 204, 217, 228, 251, 

283, 295, 329 
Model III, 3, 76, 114, 229, 251, 272, 275, 329 
Model III Operation and BASIC Language 
Reference Manual, 3 
Multiple Branches, 137-8 
Multi-statement lines, 64-6 

Nth Root, 114 

Name-it statement (see Statements), 37-9 

Negative numbers, 98, 103, 108 

NEW, 30, 255 

Nobody, 197 

NOT, 150-1 

Numeric variables, 43, 96, 107 

Numbers, tables, 215, 221 

double-precision, 214 

single-precision, 96-106, 178, 181, 214 

whole-numbers, 223 

positive, 225 

negative, 225 
ON ERROR GOTO, 301 
ON ERR GOTO, 307 
ON. . . GOSUB, 142 
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ON. . . GOTO, 138 
Operators, arithmetic, 117 

exponentiation, 116 

mathematical, 116-7, 218 

relational, 60 
OR, 150-1 
OUT, 296 
Overflow, 19 

Parentheses, 21, 116 

Pause, 54 

PEEK, 289, 290, 293-4 

Percent sign (%), 102-3, 223, 230, 232 

Period (.), 69 

Plus sign ( + ), 197, 225-7 

POINT, 262-7 

POKE, 289,291,294 

Pope, Alexander, 87 

Power 1 54-9 

PRINT, 16, 18, 53, 64, 237-8, 241, 249, 274 

@, 241, 264, 267,292 

advanced, 211, 213,215 

cell, 262 

TAB, 217, 218, 223, 286 

tables, 216 
Print zones, 17, 54 
Program, 25 
Program Flow, 38 
Prompt, 7, 58 

Question mark (?), 63 
Quotation marks (" "), 16, 186 

Radians/degrees, 154 



RAM, 290-4, 300 
Random, 167 
READ, 98-100, 125 
READY, 7 
REM, 70-1, 273 
RESET, 262, 265 
Reserved words, 337 
Resolution, 261, 265 
RESUME, 301 
RETURN, 140-1 
Re-usable instructions, 25 
RIGHTS, 190 
RND, 167, 215-6 
ROM, 186, 187, 290 
Round-off, 103 
Routines, 138 
RUN, 26 

Sample programs, 326-31 

SAVE, 33 

Scientific notation (see E-notation), 229 

Scrolling, 21 

Scrubdek, 187 

Semi-colon, 17, 52, 224, 286 

trailing, 53, 213, 214,224 
SET, 262, 265, 329 
SGN, 1 18 
(SHIFT) . 329 

©, 54, 245, 273, 274 

< >, 10 
Significant digits, 97 
SIN, 118, 219,261 
Sine, 154-9, 219, 242,245, 261,264 
(SPACEBAR) . 76, 77, 84 



Space compression, 251 

Spaces, 13, 46-7 

SQR, 118 

Square root, 118 

Statements, 37-9, 45-6, 119, 120 

STRINGS, 253-4 

Strings, 43, 44, 185 

arrays, 175-8, 181-2 

comparison, 206 

expressions, 197 

format, 227, 231 

null, 241,273 

variables, 43-5 

vs. numbers, 241, 217, 254 
Subroutines, 138-42 
Subscript, 163, 178, 179 
Syntax, 19 

(TAB). 9 

Tape, 217 

Test action, 56, 135 

true/false, 151 
Text, 185, 250 
TIMER, 127 

Trigonometry, 219, 245 
TROFF, 123-4 
TRON, 123-4 

TRS-80 Assembly Language Programming, 289 
TRS-80 Reference Manual, 219 
TRSCH, 250, 253, 262, 292, 334-6 
Type-declaration tags, 119-20 

UFO (defined), 9 

UFO#, 1-1, 9; 1-2, 10; 2-1 -2, 14; 2-3, 16; 
3-1, 26; 3-2, 27; 3-3, 28; 3-4, 30; 4-1, 39; 



4-2, 


40; 4-3, 42 


;4-4, 


43;* 


1-5, 45 


;5-l 


,53; t 


5-2, 


-3, 54 


;5-4 


55; 


5-5, 56; 5-6 


,58; 


5-7, 


60; 


5-1,64 


;6-2 


,66; 


6-3, 


38; 6-4 


,69; 


6-5, 1 


70; 


3-6, 71 


;7-i 


,76; 


7-2, 


n\ 7-3 


, 81; 


8-1, 


84; 


3-2, 8£ 


;8-3 


, 86; 


8-4, 


88; 8-5 


,90; 


8-6, 


91; 


3-7, 92 


;9-1 


,96; 


9-2, 


98; 9-3 


, 10C 


); 9-4, 


103; 


9-5, 107; 9-6, 108; 9-7, 110; 10-1, 


114; 


10-2, 


117; 


10-3 


120 


11-1, 


124; 


11-2, 


128 


11-3, 


133; 


12-1 


136 


12-2, 


138; 


12-3, 


141 


13-1, 


151; 


14-1 


156 


15-1, 


164; 


15-2, | 


168 


16-1, 


175; 


16-2 


179 


17-1, 


186; 


17-2, 


187 


17-3, 


188; 


17-4 


190 


18-1, 


197; 


19-1, i 


204 


20-1, 


217; 


21-1 


222 


21-2, 


223; 


21-3, 


225 


21-4, 


226; 


21-5 


230 


21-6, 


233; 


22-1, 


238 


22-2, 


241; 


22-3 


254 


24-1, 


265; 


24-2, 


266 


24-3, 


267; 


25-1 


273 


25-2, 


274; 


27-1, 


292 


28-1, 


300; 


28-2 


301 


22-3, 


305; 


28-4, 


306 


28-5, 


308 












Unconditional branch, 55 








Up-arrow (♦), 229-30 










Upper/lowercase, 


250, 


275 








USR, 


296 















VAL, 276, 278 

Variables, 39, 40, 101, 103, 163-4, 168, 224 

VARPTR, 296 

Video display, 9 

Woodpecker method, 8 
Wrap-around, 64, 217 

X-Y axis, 244-5, 261 

Zeros, 214 
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